Perl lacks a great way to declare static variables.

sub routine {
    my $static if 0;
    $static= 'value'   if  ! defined $static;
    # ...
}
[download]

is the closest you can come and that (once you think about it enough) makes my solution look downright tasty. (:

        - tye (but my friends call me "Tye")