my $file;
open($file,"<test.txt") or die "urg: $!";
while ($bytes = read($file,$buffer,1024)) {
  $bytesread+=$bytes;
  print OUTFILE $buffer;
}
close(OUTFILE);
close($file);