#!/usr/bin/perl
$Yakkity::Yak::a = 42;
print "a = $Yakkity::Yak::a\n";
print "Undeffing symbol table\n";
undef %Yakkity::Yak::;
print "a = $Yakkity::Yak::a\n";
__END__
a = 42
Undeffing symbol table
a = 42