Select Code to Download

(Delta_Days($3, $months{$1}, $2, $today[2], $today[1], $today[0]) > 30
+ )? push @log_lines, $line : keep_line($line);

#!/usr/bin/perl -w

...
  print TEMP "$line";
  close TEMP;
}