my $work_until_time = time+10;
print gmtime."\n"; # Debug
while ( time<$work_until_time ) {
	...
}
print gmtime."\n"; # Debug