use strict;
use LWP::UserAgent;
use HTTP::Request::Common;

my $link = "http://server/script.pl?param1=value1;param2=value4&param3=5";
my ($script,@params) = split /\?|;|&|=/,$link;
my $ua = LWP::UserAgent->new();
$ua->agent('MyUserAgent');
my $request = $ua->request(GET $script,[@params]);
if ($request->is_success()) {
  print $request->content();
}
else {
  print "Seite $link konnte nicht erreicht werden.";
}