my $foo = undef;
print "\$foo = $foo";