my $foo;

##</code><code>##

if ( defined( $foo ) ) 

##</code><code>##

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

my $foo;
print $foo * 3;

##</code><code>##

Use of uninitialized value $foo in multiplication (*) at -e line 1.
0