my $func;
$func = sub {
    my ($param1, $param2) = @_;
    do { something };
    &{$func}($param1, $param2);
}
&{$func}($p1, $p2);
[download]

works just as well. And it is much clearer.

An anonymous recursive sub would be much more fun, though.

Upd Damn, friedo is too fast.