Folgendes Script demonstriert wie super einfach man einen Ping mit der Programmiersprache Perl erzeugen kann.
#!/usr/bin/perl
# hackerworkshop
# training since 2004
# very simple ping with perl
# have fun, klaus
use Net::RawIP;
print "Mein Ping ---> \n";
$a = new Net::RawIP ({icmp =>{}});
for (;;){
for ($i=0;$i<255;$i++){
$a->set({ip => { daddr => "192.168.1.101",
saddr => "192.168.2.80",
tos => $i
}, icmp => {type => 8, id => $$}});
$a->set({icmp => {data => "haallo"} });
$a->send();
}}