my $sleep = 100;
    $sleep -= sleep $sleep while $sleep > 0;