#!/usr/bin/perl -w
#

use LWP 5.64;
use HTTP::Cookies;

my $browsertype = 'Mozilla/5.0 (Windows; U; Windows NT 5.1; de-DE; rv:1.7.12) Gecko/20050919 Firefox/1.0.7';                 
my $swiftlogonurl = 'https://www2.swift.com/swift/myprofile';
my $out = 'output.txt';
my $cookie_jar = HTTP::Cookies->new(                    # Cookies erlauben und speichern
        file => "cookies.lwp",
);

# Browswer-Objekt erzeugen
my $browser = LWP::UserAgent->new;                                                 
$browser->cookie_jar( $cookie_jar );                                                         
$browser->agent($browsertype);                                                           

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

my $response = $browser->get($swiftlogonurl);
die "Error at $swiftlogonurl\n ", $response->status_line, "\n Aborting"
    unless $response->is_success;

print "Content: ".$response->content."\n";