my $deadline = time() + 10;
while( 1 ) {
    sleep 1 while time() < $deadline;
    $deadline = time() +10;
    ## Do the something
}