my $x;
$x = sub {
    # Do stuff.
    $x->();
    # Do more stuff
};
[download]

Update: As BrowserUk can't remember offering this advice, I confess that it might have been tye, or demerphq, or any number of the smart people on this board. I think it was that I read too many response from the British One that I had him on the brain. :-)

------
We are the carpenters and bricklayers of the Information Age.

The idea is a little like C++ templates, except not quite so brain-meltingly complicated. -- TheDamian, Exegesis 6

Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.