use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);

my $name=param('Anwendername');
print $name if (defined $name);