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

require LWP::UserAgent;

...

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 );
    $Monitoring_Anfrage_POST -> header( 'content-type' => 'application/json' );
    
    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" );
		
	&Anzeige_Exporte();
    	
    } else {
    
      print "HTTP POST Error Code    : ", $Monitoring_Rueckmeldung_POST -> code    , "\n";
      print "HTTP POST Error Meldung : ", $Monitoring_Rueckmeldung_POST -> message , "\n";
    
    }

}