use Time::HiRes qw(sleep); sleep(2.5);