#!/appl/cpc/bin/perl -w
use strict;
use warnings;

$! = 10;
$? = 9;
die "$!: $?";

##</code><code>##

#!/appl/cpc/bin/perl -w
use strict;
use warnings;

use Carp;

$!=10;
$?=9;
croak "$!: $?";

##</code><code>##

  { local $@; require Carp::Heavy; }  # XXX fix require to not clear $@?