multicurl in Perl

multicurl.pl

use strict;
use warnings;

use IO::Select;

my %handle_names;

my $s = IO::Select->new;

for my $url (@ARGV) {
    open (my $handle, '-|', 'curl', '-s', '-k', $url);
    $s->add($handle);
    $handle_names{$handle} = $url;
}

my $current_handle = 0;
while ($s->count) {
    my @handles = $s->can_read(0.25);
    for my $handle (@handles) {
        printf "\n==> %s <==\n", $handle_names{$handle}
            unless $current_handle == $handle;
        $current_handle = $handle;
        print scalar <$handle>;
        if (eof $handle) {
            print "*** URL closed ***\n";
            $s->remove($handle);
        }
    }
}