#!/usr/bin/perl

use strict;
use warnings;

$|=1;

my $p2 = "/tmp/p2.pl";

open(P2,"$p2 |") || die "P2: $p2 - $!\n";
while(<P2>) {
   print;
}

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
$|=1;

my $i;

for $i (1..10) {
   print ".";
   sleep 1;
}
print "\n";