#!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";