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";