There _is_ a problem with the name parameter though; on some system/browser combinations it consists of the whole path to the file. I guess you coud yse split on "/" and/or \. does anyone have a better solution?
The core File::Basename module may be of assistance. You might also have luck with a regex like the following:
$filename =~ s!.*[/\]([^/\]*?)!$1!;
I put more stock in the module than in my regex, however.