Test::TCP::CheckPort

  $^X -MTest::TCP::CheckPort -echeck_port 8080

This is a wrapper for Net::EmptyPort which checks if a given port is open, from the command line argument (@ARGV). Because it works with port numbers in the argument list, you don't need to quote it when running with the perl executable.

Test::TCP Net::EmptyPort