#! /usr/bin/perl

use Try::Tiny;

my $res = try {
    print "point 1\n";
    die "point 1.5\n";
    11;
} catch {
    print "point 2\n";
    die "point 2.4\n";
    22;
} finally {
    print "point 3\n";
    die "point 3.5\n";
    77;
};

print "res $res\n";