#!/usr/bin/env perl 
use strict;
use warnings;
use Quux;

my $foo = Quux->new;
$foo->bar->baz;
$foo->bar()->baz;
exit;

##</code><code>##

Code is not tidy at line 1, column 1.  See page 33 of PBP.  (Severity: 1)
No package-scoped "$VERSION" variable found at line 1, column 1.  See page 404 of PBP.  (Severity: 2)