Select Code to Download

#!/usr/bin/env perl

...
eval 'undef $main::xyz;';

print "After undef: \$xyz ", (exists($::{'xyz'}) ? 'exists' : 'does no
+t exist'), "\n";

Before assignment: $xyz does not exist
After assignment: $xyz exists
42
After undef: $xyz exists