my $filename = "text.txt";
binmode($filename);

##</code><code>##

while (<$filename>) {
       print;
}

##</code><code>##

while ($bytesread=read($filename,$buffer,1024)) {
       print OUTFILE $buffer;
       print "the thing is open";
}