#!C:\Perl\bin\Perl.exe use strict; use CGI; use CGI::Carp qw(fatalsToBrowser); use XML::Twig; my $cgi = new CGI; my $var = CGI::param('Ref'); my $url = 'https://XYZ.de/msp/ '; my $link = "$url?Ref=$var&save_report=yes" ; print "Location: $link\n\n"; my $twig = XML::Twig->new->parseurl("https://www.google.de"); my $summary = $twig->first_elt( 'summary'); print $summary->text, "\n";