my $filename = $cgi->param('uploadedfile');
if($filename =~ /\\/) {
     my @tmp = split(/\\/,$filename);
     $filename = pop(@tmp);
}