use POSIX;  # Need the one coming with 5.8.0.
    my $sleep = 100;
    $sleep = POSIX::sleep $sleep while $sleep > 0;