while( read($sourcepath, $buffer, 64*2**10) ) {
   print OUTPUT $buffer;
}