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

##</code><code>##

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