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