use File::Copy 'copy';
my $filehandle  = $q->upload( 'uploaded_file' );
my $tmpfilename = $q->tmpFileName( $filehandle );

cp $tmpfilename => $filename;