#!/usr/bin/perl

my $i=0;
while (1)
{
    print "stdout " . $i++ . "\n";
    sleep 1;
}