If you feel really brave you can assign an anonymous subroutine a name with a glob. I.E.

*PI = create('3.14159');

Π


sub create {
        my(@foo) = @_;
        return sub { print "@foo\n"; };
}
[download]

You need the my declaration, it makes the closure work. - Ant