#! perl -sw
use strict;
use MySwitch;

switch 4/2 => {							# Abitrary expression for selector.
	1 => sub {
		print 'Expression equals 1'.$/;
	}, 									# NOTE: comma not semicolon.

	length 'xx' => sub {				# Arbitrary expression for each case.
		print 'Expression equals 2'.$/;
	},

	3 => sub {
		print 'Expression equals 3'.$/;
	},

	default => sub {					# default case (if supplied) used if no match.
		print 'Expression failed to match any given case'.$/;
	},
};
__END__
# Output
C:\test>switchtest
Expression equals 2

C:\test>