open (LOCAL, ">$uploadLocation/$schemedName") or dieNicely("Unable to upload: $!"); while (read($file, $i, 1024)) { $size += 1024; print LOCAL $i; } close (LOCAL);