my $func = sub {
    my ($param1, $param2) = @_;
    do { foo };
    return $bar;
}

##</code><code>##

my $func = sub {
    do { something };
    $func->($param1, $param2);
}

##</code><code>##

my $func = sub {
    my ($func, $param1, $param2) = @_;
    do { something };
    $func->($func, $param1, $param2);
}