Example

• > cat example1.pl

• #!/usr/bin/perl

• print "What is your name? ";

• $name = <STDIN>;

• chomp ($name);

• print "Hello, $name!\n";

• > perlcritic example1.pl

• No 'VERSION' variable found at line 0, column 0. See page 404 of PBP.

• Code not contained in explicit package at line 2, column 1. Violates encapsulation.

• Code before warnings are enabled at line 2, column 1. See page 431 of PBP.

• Code before strictures are enabled at line 2, column 1. See page 429 of PBP.

• Useless interpolation of literal string at line 2, column 7. See page 51 of PBP.

• Builtin function called with parens at line 4, column 1. See page 13 of PBP.