*PI = create('3.14159');

Π


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