Read at Perl 5 by Example (David Medinets-1997): Check the values returned at $proto. You should write all the get...() like this... my $proto = getprotobyname('tcp)||6; ##just in case you don't get any value as returned... hope it helps Alberto