Select Code to Download

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

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