Select Code to Download

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

hi

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

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

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

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