#!/usr/bin/env perl

# create a UserAgent and send a request to 302.cgi to see how
# it handles redirects.

use LWP::UserAgent;
use LWP::ConsoleLogger::Easy qw( debug_ua );
use HTTP::Response;
use HTTP::Request::Common;
use HTTP::Cookies;
use URI;

my $URLobj = URI->new('http://fotomazi.eu5.net/bin/302.cgi');
my $URLstr = $URLobj->as_string;

my $ua = LWP::UserAgent->new(
#       'requests_redirectable' => [],
);

LWP::ConsoleLogger::Easy::debug_ua($ua, 6);

$ua->cookie_jar(HTTP::Cookies->new(
        'file' => './cookies.txt',
        'autosave' => 1,
        'ignore_discard' => 1,
));
my %extra_headers = ();

my $a_request = HTTP::Request::Common::GET(
        $URLstr,
        %extra_headers
);
if( ! defined($a_request) ){ print STDERR "$0 : call to ".'HTTP::Request::Common::GET()'." has failed.\n"; exit(1) }
my $a_response = $ua->request($a_request);

print $a_response->as_string."\n";