#!/usr/bin/perl

use warnings;
use strict;

my $foo = undef;
my $bar = 'bar';
$foo = $foo . $bar; # UNITIALIZED!!!

print "foo = <$foo>\n";