LWP::Simple 打开url问题

CODE:

#!/usr/bin/perl -w
use strict;

use POE;
use LWP::Simple;

for (1..5) {
        POE::Session->create(
                inline_states => {
                        _start    => \&handler_start,
                        connect   => \&connect,
                        _stop     => \&handler_stop,
                }
    );
}

POE::Kernel->run();
exit;

sub handler_start {
   my ($kernel, $heap, $session) = @_[KERNEL, HEAP, SESSION];
   print "Session ", $session->ID, " has started.\n";
   $heap->{count} = 0;
   $kernel->yield('connect');
}

sub connect {
   my ($kernel, $heap, $session) = @_[KERNEL, HEAP, SESSION];
   print "Session ", $session->ID, " counted to ", ++$heap->{count}, ".\n";
   
   my $url = 'http://search.cpan.org/dist/Wx/META.yml';
  
   my $data = get($url);
   my $file = "session".$session->ID."-".$heap->{count}.'.txt';
   open(FF,">$file");
   print FF $data;
   close(FF);
   
   $kernel->yield('connect') if $heap->{count} < 2;
}

sub handler_stop {
   print "Session ", $_[SESSION]->ID, " has stopped.\n";
}