#!/net/local/bin/perl -w # 2001 was: my $directory = '/net/zeus/facstaff/bakken/icdsn-external/submissions'; my $directory = '/net/zeus/facstaff/bakken/icdsn-external/submissions'; use lib '/net/zeus/facstaff/bakken/icdsn-external/perl'; use CGI qw/:standard/; use Mail::Sendmail; print header; print <