Select Code to Download

#!/usr/bin/perl -w
#
...
        print "--> $key: $p{$key}\n";
    }
}

Code before warnings are enabled at line 9, column 1.  See page 431 of
+ PBP.  (Severity: 4)
Always unpack @_ first at line 19, column 1.  See page 178 of PBP.  (S
+everity: 4)
Subroutine "baz" does not end with "return" at line 19, column 1.  See
+ page 197 of PBP.  (Severity: 4)