sub INT_handler {
    print("Don't Interrupt!\n");
}

sub ABRT_handler {
    print("awwww!\n");
	exit 0;
}

$SIG{'INT'} = 'INT_handler';
$SIG{'ABRT'} = 'ABRT_handler';

print "My pid is $$ \n";
for ($x = 0; $x < 100; $x++) {
    print("$x\n");
    sleep 1;
}