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