$upload = $CGI->upload("pic");

open    UPLOADFILE, ">", "$copydir/$newf";
binmode UPLOADFILE;
print   UPLOADFILE $upload; # YOU FORGOT THIS! :-)
close   UPLOADFILE;


##</code><code>##


use autodie;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);