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

##</code><code>##

hi

##</code><code>##

#!perl -w
use strict;use warnings; 
use Switch; 
Switch {my $a=1};

##</code><code>##

Can't locate object method "Switch" via package "1" (perhaps you forgot to load "1"?) at switch.pl line 4.

##</code><code>##

#!perl -w
use strict;use warnings; 
use Switch; 
Switch {my $a=1;return};

##</code><code>##

Can't return outside a subroutine at switch.pl line 4.