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

use Carp;

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