in reply to Ugly ways to declare global variables?

my $foo; *foo=\$foo;

$foo = 5;
print $::foo;

[download]

In Section Meditations