sub checkfixpack() {
        my $request = POST 'http://www-912.ibm.com/eserver/support/fixes/fixcentral/pfixpacks/53', [ tl => 'all' ];
        my $response = $browser->request($request);
        if ($response -> is_success()) {
                my @site = $response->content;
                foreach (@site) {
                        my $line = $_;
                        if ($line =~ m/pseriesfixpackinformation\/(.+)\"/g) {
                                print("Fixpack: $1\n");
                        }
                }
        } else {
                print  "ERROR ".$response->message . "\n";
        }
}