Select Code to Download

C:\Documents and Settings\Administrator\Desktop\china.txt

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