sysopen FH, /dev/fd0, O_RDWR|O_CREAT,0666 or die "Cannot open : $!";

while(1){
seek FH, 0, SEEK_SET   or die "Cannot rewind $file: $!";
my $data = <FH>;
#truncate FH, 0   
print "$data\n";
}