# main program
use strict;
use warnings;

system ("perl sub_program.pl > file.txt &");

my $last_line;
for my $i (0..100) {
     sleep 10;
     local @ARGV = ("file.txt");
     $last_line = $_ while <>;
     print "iteration $i : $last_line";
}