(repeat) use CGI ':standard'; use File::Basename; foreach (param('file')) { my $basename = basename($_); $basename =~ tr/A-Za-z0-9.//cd; # strip out unwanted crap open(FILE, "> $basename") or die "$basename: $!"; print FILE <$_>; close(FILE); }