#!/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;