Select Code to Download

my $foo;

if ( defined( $foo ) )

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

my $foo;
print $foo * 3;

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