Select Code to Download

use IO::Select qw( );
use IO::Handle qw( );
...
        sleep(3);
    }
}

It took 0 seconds to get the msg
It took 3 seconds to get the msg
...
It took 3 seconds to get the msg
It took 0 seconds to get the msg
...

    my $sel = IO::Select->new($rfh);
    my $buf = '';
...
            print("It took ", (time()-$got), " seconds to get the msg\
+n");
        }
    }

It took 0 seconds to get the msg
It took 0 seconds to get the msg
...
It took 0 seconds to get the msg
It took 0 seconds to get the msg
...