use CGI qw(-utf8);
$CGI::POST_MAX = 40_000_000;
use File::Copy;
use File::Basename;
my $c = CGI->new;

if($c->param){
        print $c->header(-charset => 'utf-8'), $c->h2('Result');

        my $fh = $c->param('upfile');      # Get the FileHandle from temp-File
        my $source = $c->tmpFileName($fh); # get the source filename
        my $dest = $fh;                    # scalar context, origin filename from UserAgent
        my $ref = [fileparse($dest)];      # Dateiname in [0]
        print "Copy $source, /tmp/$ref->[0]";
        copy $source, "/tmp/$ref->[0]";
}