Help for this page

Select Code to Download

Select or download this

use File::Basename;

my $file = $q->param('upfile') || '';
$file = basename($file);