[Thomas]

my $port = "https";

Borde väl rimligtvis vara

my $port = "443";

Du gör ju senare en kontroll så att variabeln $port bara blir getservbyname($port, 'tcp') om $port inte är numerisk.

if $port !~ /^[0-9]/;

Thomas