#! /usr/bin/perl -w
 use LWP::Debug qw(+);
 use strict;
 
 require LWP::UserAgent;
 
 my $ua = LWP::UserAgent->new;
 $ua->timeout(10);
 $ua->env_proxy;
 
 my $response = $ua->get('https://www.sparda-west.de');
 
 
 if ($response->is_success) {
     print $response->decoded_content;  # or whatever
 }
 else {
	die $response->status_line;
 }