#!/usr/bin/perl
use Coro::LWP;
use Coro;
use Coro::AnyEvent;
use Coro::Timer qw(sleep timeout);
use LWP::Simple;
$|++;

my @pids;

for (1..1) {
   push @pid, async {
      print "starting to fetch http://www.google.de/\n";
      get "http://www.google.de/";
      print "fetched http://www.google.de/\n";
   };

   push @pid, async {
      print "starting to fetch http://www.yahoo.com/\n";
      get "http://www.yahoo.com/";
      print "fetched http://www.yahoo.com/\n";
   };
}
$_->join for @pid;