open(LOCAL, ">$imgdir/$name") or print 'error';

##</code><code>##

    my $filename = 
    open(LOCAL, ">$filename") or die "Could't create '$filename': $!";

##</code><code>##

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

cp $tmpfilename => $filename;