I'm still fairly new to perl, but there is this problem that I can't seem to find a solution for, in the following piece of code, I'm using the net::pcaputils module to capture tcp packets, the code works fine. but the problem is that; I would like to send a tcp ping and capture the response in the same script. If anybody could enlighten me of how to do this, I would greatly appreciate it. Thanks in advance.

#!/usr/bin/perl

use Net::PcapUtils;
use NetPacket::IP;
use NetPacket::TCP;
use NetPacket::Ethernet;

Net::PcapUtils::loop(\&packets, FILTER=>"tcp");

sub packets{
        my($user_data, $hdr, $pkt) = @_;
        my $eth_data = NetPacket::Ethernet::strip($pkt);
        my $np_data = NetPacket::Ethernet->decode($pkt);
        my $ip = NetPacket::IP->decode($eth_data);
        my $tcp = NetPacket::TCP->decode($ip->{'data'});

        $i++; print "($i) Packet Captured:\n";

        print "ip/port::    $ip->{'src_ip'}:$tcp->{'src_port'} --> $ip
+->{'dest_ip'}:$tcp->{'dest_port'}\n";
        print "mac::        $np_data->{'src_mac'} --> $np_data->{'dest
+_mac'}\n\n";
}
[download]

Retitled by davido.