Select Code to Download

open(ERRLOG,"myerror.txt");
@file = <ERRLOG>;

foreach $line (0..$#file)
{
...
  if($date < (time-2592000)) # 2592000 secs = 30 days
  { splice @file,$line,1; }
}