Select Code to Download

      my($day,$month,$year) = (localtime)[3,4,5];
      $month = $month + 1;
      $year = $year + 1900;
      my $date = "$month\/$day\/$year";

      my (@time) = (localtime)[4,3,5];
      my ($date) = sprintf ("%d/%02d/%02d", $time[0]+1900, $time[1]+1,
+ $time[2]);

...
                    $date[0]+1900,
                    $date[1]+1,
                    $date[2]);

      while(<FILE>) {
          push @output, $_;
      }