#!/usr/bin/perl -w
use Carp;

eval {
  eval {
    die "Pig\n";
  };
  if ($@) { print $@."\n"; die $@; }
};
print $@ if $@;

eval {
  eval {
    croak "Pig\n";
  };
  if ($@) { print $@."\n"; croak $@; }
};
print $@ if $@;