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

use strict;

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