use strict;
use warnings;

$SIG{INT} = sub { print "caught SIGINT\n"; exit };

sleep 1;
exec $^X, $0;