Perl does not have a 'switch/case' statement, and you're not specifying any module that does. You cannot simply copy a shell script, add in some curly braces, and expect it to work in Perl.