#!/usr/bin/perl
#Copyright 2003 William Stearns <wstearns@pobox.com>
#Released under the GPL
#Version 0.1

use strict;
use warnings;

use Net::RawIP;
#use Sys::Hostname;


my $OneReply = new Net::RawIP({icmp => {} });

#$Payload = ;

$OneReply -> set ( { ip => { saddr => "127.0.0.1", daddr => "1.1.1.1" },
                     icmp => { type => 0, code => 0 } } );

$OneReply -> send;