use strict;
use warnings;
use Switch;

my $mode='network';

print "\n\n";

switch ($mode) {
		
		case ('alternative') {
			print 'alternative';
	
		}
		case 'network' {
			print 'network';
		}
		
		else { # local value or not specified
			print 'default';
		}
	}


print "\n\n";

##</code><code>##

Can't locate deprecate.pm in @INC (@INC contains: CODE(0x140
lf\IMPOST~1\Temp\par-wolf\cache-a6a07c4c8edef3f3831fbe053938
 C:\DOCUME~1\wolf\IMPOST~1\Temp\par-wolf\cache-a6a07c4c8edef
af3a550\inc CODE(0x124b304) CODE(0x124b604)) at if.pm line 1
BEGIN failed--compilation aborted at Switch.pm line 7.
Compilation failed in require at script/ciao.pl line 3.
BEGIN failed--compilation aborted at script/ciao.pl line 3.