use warnings;
use strict;

system 'perl', 'call.pl';

##</code><code>##

use warnings;
use strict;

my $c = 1;

while (1){
    print $c++ ."\n";
    sleep 1;
}

##</code><code>##

$ perl call.pl 
1
2
3
4
5

##</code><code>##

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

##</code><code>##

6
7
^C

##</code><code>##

$ ps ax | grep called