my $pubupload   = $query->param('pubupload');
my ($junk, $extension) = split / ./, $pubupload;