Select Code to Download

$self->{"port_num"} = (getservbyname('echo', 'tcp'))[2] ||

use strict;
use warnings;
...
} else {
    print "dead\n";
}