alarm 0;
my $sig = $? & 127;
my $signame = sig_name $sig;
die [TLE, "Time Limit Exceeded"] if $tle;
die [OLE, 'Output Limit Exceeded'] if $sig && $signame eq 'XFSZ';
alarm 0;
my $sig = $? & 127;
my $signame = sig_name $sig;
die [TLE, "Time Limit Exceeded"] if $tle;
die [OLE, 'Output Limit Exceeded'] if $sig && $signame eq 'XFSZ';