Why not something like

unless ($^O =~ /WIN32/) {
   Net::Ping->new("tcp", 2); 
   etcetera
}
else {
   Net::Ping->new("icmp"); 
   etcetera
}
[download]

Untested..

-----
Of all the things I've lost in my life, its my mind I miss the most.