Select Code to Download

  $$_ = foo ;

$main::zero = foo ;

eval("\$$_ = foo") ;

my $zero ;
...
print "$zero" ;