Use Net::Oping. I'm not sure if it's possible to set the destination port.
In reply to Re: Optimized remote ping by shmem in thread Optimized remote ping by themonk