try-finally.pl

use strict;
use warnings;

use Exception::Tiny;
use Try::Tiny qw/try catch finally/; 

sub hoge {
    return try {
        Exception::Tiny->throw({hoge => 'foo'});
        return 'hogehoge';
    } catch {
        return 'foobar';
    } finally {
        print "finally!!!!\n";
    };
}

print hoge;