For simple switches (with only one - before the switch) you can use

#!/usr/bin/perl -s

When you call this script with a swtich (say, -foo) the $foo variable gets defined. If you use it with a value (say, -foo=bar) then $foo will get the 'bar' value.

It is not so powerfull as getopt, but is useful for small tasks.