sub myhooksub {
  my( $filename, $buffer, $bytes_read, $fh ) = @_;
  seek( $fh, 0, 0 ); # rewind to start of file
  printf $fh "Uploading '%s', %d out of %d bytes read\n",
    $filename, $bytes_read, $ENV{CONTENT_LENGTH};
}