Select Code to Download

$out_file = "out1";
open (OUT, "$out_file");
  while (<OUT>) {
...
  }
close (OUT);
print "hours =: $hours";

while (<DATA>) {
  if ($_ && /Time:\s+(\d+):(\d+):(\d+)/i) {
...

__DATA__
Time: 04:45:12