#!/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 $@;


##</code><code>##

Pig

Pig
Pig
        eval {...} called at ./test7.pl line 13
        eval {...} called at ./test7.pl line 12

Pig
        eval {...} called at ./test7.pl line 13
        eval {...} called at ./test7.pl line 12
        eval {...} called at ./test7.pl line 12