require HTTP::Headers;
require HTTP::Request;
require HTTP::Response;

require LWP::UserAgent;

...

sub Monitoring_Anmeldung {

    # system( "CLS" );

    my $Monitoring_Anmeldung_Nutzer = $_[0];
    my $Monitoring_Anmeldung_PW     = $_[1];
	
    my $Monitoring_Anmeldung_Parameter = "login?username=$Monitoring_Anmeldung_Nutzer&password=$Monitoring_Anmeldung_PW";
    
    # print "$Monitoring_Anmeldung_Parameter_Nutzer" . "\n";
    # print "$Monitoring_Anmeldung_Parameter_PW"     . "\n";
    
    my ( $Monitoring_Inhalte_POST ) = &Monitoring_Server_POST( $Monitoring_Anmeldung_Parameter );
	
    # -------------------------------------------------

    my $Pruefung_Aktive_Sitzung  = 'Sie sind bereits angemeldet oder die letzte Session wurde nicht';
    my $Pruefung_Falsches_PW     = 'Die eingegebene Kombination Benutzername/Kennwort ist falsch.';
	
    if ( $Monitoring_Inhalte_POST =~ /$Pruefung_Aktive_Sitzung/ ) 
    { 
    	print "\n";
    	print "Es gibt eine aktive Sitzung fuer : $Monitoring_Anmeldung_Nutzer" , "\n";
    	print "\n";   		
    }
	
    if ( $Monitoring_Inhalte_POST =~ /$Pruefung_Falsches_PW/ ) 
    { 
    	print "\n";
    	print "Falsches PW bei der Anmeldung !" , "\n";
    	print "\n";   		
    }
	
    # -------------------------------------------------
}