programming-examples/perl/Network/Checking for an open port.pl

#!/usr/bin/perl -w

# Finds an open port.
$port = 2345;
while (getservbyport($port, "tcp") ) {
    $port++;
}
print "An open port number is $port\n";