$ perl -wle'my $x;
eval { print "\$x = $x" };
print "error: <$@>"'
Use of uninitialized value $x in concatenation (.) or string at -e line 2.
$x = 
error: <>
$