{
 # read() returns the number of bytes read or undef on error
 $bytesread = read($raw_file,$buffer,1024);

 # let's exit with an error if read() returned undef
 die "error with file read: $!" if !defined($bytesread);

 # let's exit with an error if print() did not return true
 unless (print O $buffer) die "error with print: $!";

 # let's redo the loop if we read > 0 chars on the last read
 redo unless !$bytesread
}