use HTTP::Request;
  use LWP::UserAgent;

  my $html     = '';
  my $request  = HTTP::Request->new(GET => "$url/$file" );
  my $ua       = LWP::UserAgent->new;
  my $response = $ua->request($request, \&cb, 4096);

  sub cb {
   print $_[0];
   die;
  }