if ($^O =~ /WIN32/) {
   Net::Ping->new("icmp"); 
   etcetera
}
elsif ($^O =~ /(irix | linux | SunOS | yougettheidea) /) {
   Net::Ping->new("tcp", 2); 
   etcetera
}