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

my $name;

print "Hello $name\n";
my $x = "2x";
print 3+$x;

print "done\n";

##</code><code>##

Use of uninitialized value $name in concatenation (.) or string at t/files/hello_with_warn.pl line 7
Argument "2x" isn't numeric in addition (+) at t/files/hello_with_warn.pl line 9.

##</code><code>##

#!/usr/bin/perl
use warnings;

$what = 42;

##</code><code>##

Name "main::what" used only once: possible typo at t/files/no_strict.pl line 4.

##</code><code>##

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

my $x

if ($x) {
	print "ok";
}

##</code><code>##

Global symbol "$x" requires explicit package name at t/files/missing_semicolon.pl line 7.
syntax error at t/files/missing_semicolon.pl line 7, near ") {"
Execution of t/files/missing_semicolon.pl aborted due to compilation errors.