# perlcritic .
./877252.pl source OK
./sam.pm source OK
./status.pm: "return" statement with explicit "undef" at line 45, column 3.  See page 199 of PBP.  (Severity: 5)
./tes.pm source OK