sub save_friend_info {
    # . . .
}

##</code><code>##

{
    my $save_friend_info = sub {
        # . . .
    };
    
    $save_friend_info->(@args) or die $!;
}