#!/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 $ua  = LWP::UserAgent->new;
push @{ $ua->requests_redirectable }, 'POST';

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

print $response->status_line;
print $response->content;