my $start = time();
while( time() <= $start + 7200 ) {
  ....sutff....
}