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