Select Code to Download

use warnings;
use strict;

system 'perl', 'call.pl';

use warnings;
use strict;
...
    print $c++ ."\n";
    sleep 1;
}

$ perl call.pl 
1
...
3
4
5

$ ps ax | grep called
29221 pts/9    S+     0:00 perl called.pl

6
7
^C

$ ps ax | grep called