while (my $chunk = <$upload>) {
    print $fh $chunk;
}