#!/usr/bin/env perl


sub try(&$) {
  my ($try, $catch) = @_;
  
  eval { # perl try
    &$try
  }; if($@){ # perl catch
    &$catch($@);
  }
}
sub catch(&){ shift }

try{
  die("Frankie");
} catch {
  my $e = shift;
  print("Hello world $e\n");
}