$out_file = "out1";
open (OUT, "$out_file");
  while (<OUT>) {
    next unless $_;
    if (/Time: (..):(..):(..)/) {
       $hours = $1;
       $mins  = $2;
       $secs  = $3;
     }
  }
close (OUT);
print "hours =: $hours";