just a correction, you need to import the sleep function from Time::HiRes, otherwise it will use the default sleep function and sleep 0 seconds instead.

    use Time::HiRes qw/sleep/;