use warnings;
use strict;

my $run=1;
$SIG{INT}  = sub { print "INT\n"; $run=0 };
$SIG{TSTP} = sub { print "TSTP\n"; kill 'STOP', $$ };
sleep 1 while $run;