#!/usr/bin/perl

use strict;
use warnings;

$thing = "bleh";
print "hello $thing $bleh\n";


##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use Perl::Critic;

my $file = shift;
my $critic = Perl::Critic->new();
my @violations = $critic->critique($file);

print "@violations\n";


##</code><code>##


$ perl critic ;perl thing 
Global symbol "$thing" requires explicit package name at thing line 6.
Global symbol "$thing" requires explicit package name at thing line 8.
Global symbol "$bleh" requires explicit package name at thing line 8.
Execution of thing aborted due to compilation errors.