forward 1st execution answer to right callback.

forward.pl

#!/usr/bin/perl

use strict;
use warnings;

# こういう forward 関数（仮名）があれば
sub forward {
    my $landing_cb  = pop;
    my @sub_returns = @_;

    local $_ = $sub_returns[0];
    $landing_cb->(@sub_returns);
}

use Scalar::Util qw(looks_like_number);
my $num = shift or die "require number as 1st argument";
if ( !looks_like_number($num)  ) {
    die "not number!";
}

# こういうふうに書くものが
my $answer = sqrt $num;
print "$num の平方根は $answer です\n";

# こういうふうに書ける
forward sqrt $num, sub {
    print "$num の平方根は $_ です\n";
};

# 場合によっては読みやすい？