>>my ($name) = $upload->filename =~ m!([^/\\]*$)!;
> 
> 
>   use File::Basename;
>   my $name = basename($upload->filename);

much better :)

--Geoff

Reply via email to