Select Code to Download

#!/usr/local/bin/perl -w

...
        wait;
    }
}

# test2.pl
#!/usr/local/bin/perl
...
$SIG{INT} = sub { warn "in child\n"; exit; };

sleep 100;

in parent at ./test.pl line 4.
in child
> <--- shell prompt.