try {
     die "foobar";
}
catch {
   print "failed\n";
   exit;
}
print "ok";

##</code><code>##

$("" = 'stringify'
$(0+ = 'value'
$Debug = 1
$VERSION = 0.15
$Depth = 0
$() = 1
%OVERLOAD = (
   'dummy' => 1
)

##</code><code>##

try {
  eval {
    die "foobar";
  };
  if ($@) {
    throw Error::Bad($@);
  }
}
catch Error::Bad with {
  my $err = shift;
  print "Failed: $err\n";
  exit;
}
print "ok";

##</code><code>##

okCan't use string ("1") as a HASH ref while "strict refs" in use at Error.pm line 183.