# test2.pl
#!/usr/local/bin/perl

$SIG{INT} = sub { warn "in child\n"; exit; };

sleep 100;