For pinging a particular TCP port you'll want to use something like IO::Socket::INET to make a connection to that port. The TCP option of Net::Ping has no port option and will only connect to the echo service/port.