future_test.pl

use strictures 2;
use 5.012;
use Future;

sub async_task {
    Future
        ->done
        ->then( sub {
            return "meep";
        } )
        ->then( sub {
            say @_;
            die if .5 > rand;
            return "marp";
        } )
        ->then( sub {
            say @_;
            return "end\n";
        } );
}

sub wrap_in_catch {
    shift->else( sub { "fail\n" } );
}

say wrap_in_catch(async_task)->get for 1 .. 10;