Fetching data from a webserver with Perl

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

my $url = "http://www.adp-gmbh.ch";
my $ua  = LWP::UserAgent->new();
my $uri = URI->new($url);
my $anf = HTTP::Request->new(GET => $url);
my $ans = $ua->request($anf);
if ($ans->is_error()) {
  printf "Error -->  %s\n", $ans->status_line;
}
else {
  my $cnt = $ans->content;
  print $cnt;
}

my $ua = LWP::UserAgent->new()
$ua->proxy(http=>'http://proxy.ournet.xy:8080');

use warnings;
use strict;

use LWP::Simple;

my $ans =
get("http://search.cpan.org/doc/GAAS/libwww-perl-5.65/lib/LWP/Simple.pm");

print $ans