use IO::Socket::INET;

$server = '192.168.27.236';

$p = new IO::Socket::INET (
        PeerAddr => $server,
        PeerPort => 135,
        Proto    => "tcp",
        Timeout  => 5
     );

if ($p) {
     print "\tPINGed $server at ".scalar(localtime).".\n";
} else {
     print "\tFailed to PING $server at ".scalar(localtime).".\n";
}