sub foo
{
    my $foo_arg = shift;
    my $foo_return = bar( $foo_arg );
    sub bar
    {
        my $bar_arg = shift;
        $bar_return = munge_munge( $bar_arg );
        return $bar_return;
    }
    return $foo_return;
}