#!/usr/bin/env perl 
use strict;
use warnings;

system ('perl -e "exit 139"');

my $exit_value  = $? >> 8;
my $signal_num  = $? & 127;
my $dumped_core = $? & 128;

print <<EOT
Exit value: $exit_value
Signal:     $signal_num
Core:       $dumped_core
EOT