Sleep won't help here , neither the time .

I'm not sure what you mean? This should work:

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