perl-try-signatures.pl

use v5.34;
use experimental qw(try signatures);

my @errors;
try {
  something("/file-that-doesnt-exist");
} catch ($e) {
  push @errors, $e;
}

if (@errors) {
  say "Errors encountered during execution:";
  say "- $_->{error}" for @errors;
  exit(1);
}

sub something($file) {
  unless (-f $file) {
    die { error => "File $file does not exists" };
  }
}