#! perl -slw
use strict;
use Cswitch;

switch 1, {
    case 1, {
        print 'Got 1';
    };
    case 2, {
        print 'Got 2'
    },
};