Select Code to Download

use CGI;
use File::Basename;
...
my $fullfilename = $cgi->upload("file");

my ($filename, $type) = split '\.', basename($fh);

          # untaint filename and type
$filename =~ s/[^A-Za-z0-9_-]//g;
...
     print FILE $uploaded;
}
close FILE or die "$!";

my $fullfilename = $cgi->upload("file");

my $filename = reverse((split(/\//,                
                             reverse($fullfilename)))[0]);