[set up input file, output file FILE]
use Date::Manip::DM5;
@argdates = ParseDate(@ARGV);
for inputfile, read line from input file {
@linedates = ParseDate(inputline)
for @argdates {
  if $linedates[0] eq $_ or $linedates[1] eq $_
  then print FILE inputline;
}
}