fetch.pl

#!perl -w
# usage: fetch.pl [urls...]
use strict;
use Coro;
use Coro::Select; # この行をコメントアウトすると多重化されなくなり時間がかかるようになる
use Furl;

my @coros;
foreach my $url(@ARGV) {
    push @coros, async {
        print "fetching $url\n";
        my $furl = Furl->new();
        my $res  = $furl->head($url);
        print "$url: ", $res->status_line, "\n";
    };
}

$_->join for @coros;
__END__