Modul Net::Ping --- HEELP

[michal]

Zdravim vsechny.
Potrebuju rozchodit modul Net::Ping .
Kdyz uselam malinkatej programek na zkousku zda to funguje varci mi to v
promene $! Bad file number .....grrr.
Verze perlu je 5.004_01.
OS = Digital Unix
Muj pokusny programek
-------------------------
#!/usr/bin/perl
use Net::Ping;
$hostname = 'blabla';
$timeout = 10;
print "blabla zije\n" if pingecho ($hostname, $timeout);
--------------------------------------
Diky za pomoc

Michal
mb na post.cz