$fh = upload('upload_name');

open OUTFILE, ">$destfile";
while ($bytesread=read($fh,$buffer,1024))
{
    print OUTFILE $buffer;
}