Select Code to Download

#!/usr/bin/perl -w
# producer.pl
...
        syswrite(STDOUT,"Hello\n",length("Hello\n"));
        sleep(2);
}

#!/usr/bin/perl -w
# consumer.pl
...
    }
}
=cut