sub Monitoring_Server_POST {
 
my $LWP = LWP::UserAgent -> new;
    
my $Monitoring_URL_Basis     = "http://beispiel.de/Monitoring/";				
    my $Monitoring_URL_Parameter = $_[0];																
    
my $Monitoring_Server_POST = $Monitoring_URL_Basis . $Monitoring_URL_Parameter;								
    
my $Monitoring_Anfrage_POST  = HTTP::Request -> new( POST => $Monitoring_Server_POST );					

# -------------------------------------------------------------------------------------------
# Ermittlung der Übergabe - Parameter jedes POST - Befehls	
	
    my $Monitoring_Parameter_Anfrage = HTTP::Request::Params -> new( { req => $Monitoring_Anfrage_POST, } );	
	
    my $Monitoring_Parameter_Ermittlung = $Monitoring_Parameter_Anfrage -> params; 						
    my %Monitoring_Parameter_Hashes     = %{ $Monitoring_Parameter_Ermittlung };            				

    for my $Monitoring_Parameter_Schluessel ( keys %Monitoring_Parameter_Hashes ) 						
{           													
    my @Monitoring_Parameter_Werte;															
		
    if ( ref $Monitoring_Parameter_Hashes{ $Monitoring_Parameter_Schluessel } ) 						
		{          																				
    @Monitoring_Parameter_Werte = @{ $Monitoring_Parameter_Hashes{ $Monitoring_Parameter_Schluessel } };  
		
    } else {                                  													
		
	@Monitoring_Parameter_Werte = $Monitoring_Parameter_Hashes{ $Monitoring_Parameter_Schluessel }; 
		
		}
		
	print $Monitoring_Parameter_Schluessel , " => " , join "" , @Monitoring_Parameter_Werte , "\n";
         }
	
# -------------------------------------------------------------------------------------------
	    
    $LWP -> cookie_jar( $Monitoring_Cookies ); 													
	
    my $Monitoring_Rueckmeldung_POST = $LWP -> request( $Monitoring_Anfrage_POST );					
      
    if ( $Monitoring_Rueckmeldung_POST -> is_success ) 										
    {  
    	my $Monitoring_Inhalte_POST = $Monitoring_Rueckmeldung_POST -> decoded_content;				
    	
    	print "POST Rueckmeldung \t : In Ordnung" , "\n";										
    	print "HTTP POST Code    \t : " , $Monitoring_Rueckmeldung_POST -> code    , "\n";			
        print "HTTP POST Meldung \t : " , $Monitoring_Rueckmeldung_POST -> message , "\n";  			
    
		return( "$Monitoring_Inhalte_POST" );													
    	
    } else {
    
    print "HTTP POST Error Code    : ", $Monitoring_Rueckmeldung_POST -> code    , "\n";				
    print "HTTP POST Error Meldung : ", $Monitoring_Rueckmeldung_POST -> message , "\n";		
    
    }

}