my $delay = 5;
$delay -= sleep $delay
    while $delay > 0;