1. use strict; use warnings;
2. A Switch modul Perl 5-ben elavult és nem működik rendesen. Ez nem C.
3. Program bemenő paraméterezésére ne használj saját magad által írt szerkezetet. Itt a Getopt::Long a célra.
4. Ha mégis saját magad akarsz bűvészkedni (ami igazán nem ajánlott), akkor használj Perl 5.10-et és given/when szerkezetet:
given($_) {
when (/^abc/) { $abc = 1; }
when (/^def/) { $def = 1; }
when (/^xyz/) { $xyz = 1; }
default { $nothing = 1; }
}