http://www.perlmonks.org?node_id=143054


in reply to CGI.pm's upload gives local filename, not file itself

The behavior of sending the entire filepath to the server is peculiar to Internet Explorer. So you should filter the filename with a regex to have a valid filename. Something like the following could do:
my ($new_file_name) = $full_path_name =~ m!(?:.*\\|.*\/)?(.+)$!;
Update: well, it seems your problem was of another nature and already been solved: it's a bad habit to post before reading the full thread... sorry
$|=$_='1g2i1u1l2i4e2n0k',map{print"\7",chop;select$,,$,,$,,$_/7}m{..}g