Select Code to Download

my ($starttime, $isopen, $totaltime) = (0, 0, 0);
while (<TIMELOG>) {
...
      $totaltime += getseconds($_) - $starttime;
   }
}

@lines = <TIMELOG>;
push @lines, makefake(time(), "closed");
for (@lines) {
   # Same loop body
}