sleep 2.5; #### use Time::HiRes qw/sleep/; #### select(undef, undef, undef, 2.5);
## use Time::HiRes qw/sleep/; ##
## select(undef, undef, undef, 2.5);