#!/usr/bin/perl -w
# producer.pl

use strict;

while(1){
        syswrite(STDOUT,"Hello\n",length("Hello\n"));
        sleep(2);
}

##</code><code>##

#!/usr/bin/perl -w
# consumer.pl

use strict;

my $line;

while ($line = <STDIN>){
    print "$line";
}
=pod
my $line;
my $buf;

while (sysread(STDIN,$buf,1)){
    if ($buf =~ /\n|\r|\r\n/o){
        print "$line\n";
        $line = "";
    }else{
        $line.=$buf;
    }
}
=cut