Select Code to Download

#!/usr/bin/perl -w
#
...
    level1();
    print "Finished!\n";
}

foo@bar:~/dev$ perlcritic --severity=4 subinsub.pl
Subroutine does not end with "return" at line 11, column 5.  See page 
+197 of PBP.  (Severity: 4)

foo@bar:~/dev$ perl -w subinsub.pl
In the mainline.
Inside level1!
Finished!