use warnings;
use strict;

use Safe;

our $mySafe = new Safe;

sub handleSigs {
    my ($signalReceived) = @_;
    my $exitVal = 0;
    warn("warning: received $signalReceived signal");
    if ($signalReceived eq "INT") { $exitVal = 1; }
    elsif ($signalReceived eq "USR1") { $exitVal = 2; }
    elsif ($signalReceived eq "USR2") { $exitVal = 3; }
    exit($exitVal);
}

$SIG{USR1}=\&handleSigs;
$SIG{USR2}=\&handleSigs;

$mySafe->reval("10 + 20");

print "My PID is $$\n";
sleep(100);
print "Exiting\n";