01 #!/usr/bin/perl
02
03 use strict;
04 use warnings;
05
06 my $testval;
07
08 my $newval = "$testval test";
09
10 exit;
11
12 __END__

C:\Steve\Dev\PerlMonks\P-2013-10-15@0712-Uninitalized>uninit.pl
Use of uninitialized value $testval in concatenation (.) or string at 
C:\Steve\Dev\PerlMonks\P-2013-10-15@0712\Uninitalized\uninit.pl line 8
.