Select Code to Download

my @mesages = (...);

...
    sleep(5) if !$pass++;
    print($message);
}

use Time::HiRes qw( time sleep );  # Optional

...
    sleep_until($s_time + 5*$i);
    print($message);
}