#!/usr/bin/perl
use strict;
use Net::Pcap;
use Sniffer::HTTP;
use Net::RawIP;
my $VERBOSE = 0;
  


my $sniffer = Sniffer::HTTP->new(
callbacks => {
request  => sub { my ($req,$conn) = @_; 
my $src = $conn->tcp_connection->src_host;
my $sport = $conn->tcp_connection->src_port;
my $dst = $conn->tcp_connection->dest_host;
my $dport = $conn->tcp_connection->dest_port;
my $myurl = $req->uri;



if ( $myurl =~ "http://xyz.com" )

{


system("/usr/bin/perl /myscripts/socket3.pl $dst $dport $src $sport");


}


print "Request: $src:$sport -> $dst:$dport -> $myurl \n";


}
},
);
$sniffer->run('alc0'); # uses the "best" default device