$File_Name = Get_File_Name(param('filename'));

sub Get_File_Name{
    if($ENV{HTTP_USER_AGENT} =~ /win/i){ 
        fileparse_set_fstype("MSWin32");  #changed from MSDOS to try a
+nd fix the A:\ problem
    } 
    elsif($ENV{HTTP_USER_AGENT} =~ /mac/i) {
        fileparse_set_fstype("MacOS");
    }
    my $full_name =  shift;
    $full_name    =  basename($full_name);
    $full_name    =~ s!\s!\_!g;          # Replace whitespace with _
    return($full_name);
}
[download]

storeFiles($File_Name, $Directory);

#stores uploaded files
sub storeFiles{
  my($filename, $directory) = @_; #name subroutine variables
    my $data;
    my $mime = uploadInfo($filename)->{'Content-Type'};
    open (STORAGE, ">$directory/$filename") or die "Error: $directory/
+$filename: $!\n";
    if($mime !~ /text/){
        binmode ($filename);
        binmode (STORAGE);
    }
    while( read($filename, $data, 1024) ){ print STORAGE $data;}
    close STORAGE;
}
[download]

uploadInfo is from CGI.pm, so you want the source from the CGI module?

That would be the relevant code, yes. Not being a frequent CGI programmer, myself, I didn't recognize that it was a CGI function. So here's the source:

sub uploadInfo {
    my($self,$filename) = self_or_default(@_);
    return $self->{'.tmpfiles'}->{$filename}->{info};
}
[download]

It's a method, and you're calling it as an ordinary sub.

Update: as dragonchild points out, that's not the problem. So the critical issue looks like: what is the value of $filename? It may require some exploration and dumping of data to see what value it should have in order to work.

---

Caution: Contents may have been coded under pressure.

Nope. Every function in CGI can be called as either a function or a method. That's what the self_or_default() function does.

Being right, does not endow the right to be rude; politeness costs nothing.
Being unknowing, is not the same as being stupid.
Expressing a contrary opinion, whether to the individual or the group, is more often a sign of deeper thought than of cantankerous belligerence.
Do not mistake your goals as the only goals; your opinion as the only opinion; your confidence as correctness. Saying you know better is not the same as explaining you know better.

Thanks. I'll look into the object method. I still don't understand why the script works when called from a form in Firefox but not in IE. Because it seems that uploadInfo works in one case but not another.