print "The OS is $^O";

if ( $^O =~ /Linux/ ) {
    &linux_ping;
} 
elsif ( $^O =~ /Solaris/ ) {
    &sun_ping;
} 
else { 
    die "Get a real OS!\n";
}