#!perl -w
use strict;use warnings; 
use Switch; 
sub Main { 
Switch {print "hi\n";return;}
}