my $os = $^O;
my $OS = "Win32";

SWITCH: {
   $os =~ /^s/i && do { $OS = "SunOS"; last SWITCH; };
   $os =~ /^l/i && do { $OS = "Linux"; last SWITCH; };
   $os =~ /^a/i && do { $OS = "AIX";   last SWITCH; };      
   $os =~ /^h/i && do { $OS = $Config{'archname'} =~ /64/ ? "HPIA64" : "HP";   last SWITCH; };      
   }