use LWP::UserAgent;
 
my $url = 'https://server.de/upload/topic123.php';
 
my $ua = LWP::UserAgent->new;
$ua->default_header('X-Requested-With' => 'XMLHttpRequest');
 
$ua->timeout(180);
 $ua->requests_redirectable(undef); # Redirects ausschalten!
 
$ua->credentials(server.de:Port', 'realm', 'abcdef', '123456');
   
 
 
my $response = $ua->post($url);
 
   
   if ($response->is_success) {
    
    print $response->decoded_content; 
    
}
 
else {
     die $response->status_line;
   }