#!/usr/bin/perl 
#    stream_write.pl - Slowly generate data
use strict; 
use warnings; 
 
open my $OFH, '>', 'the_stream.dat' or die $!; 
binmode( $OFH, ":unix"); 
my $cnt = 0; 
while ($cnt < 100) { 
    ++$cnt; 
    my $cur_time = time; 
    print $OFH "$cnt, $cur_time\n"; 
    sleep 5*rand; 
}   
close $OFH;