my $foo = undef;
print "\$foo = " . ($foo || 0);