#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request;

my $req = HTTP::Request->new(
  POST => "http://www-912.ibm.com/eserver/support/fixes/fixcentral/pfixpacks/53",
  [
     tl => 'all',
  ],
);

my $proxy = 'http://suma:***@svproxsg01.***.de:8080/';

my $ua  = LWP::UserAgent->new;
$ua->timeout(10);
$ua->proxy(['http','ftp'], $proxy) if defined $proxy;


push @{ $ua->requests_redirectable }, 'POST';

my $response = $ua->request( $req );

print $response->status_line . "\n";
print $response->content . "\n";