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