#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;

my $user= 'XXXX@spamgourmet.com';
my $password= 'XXXX';

my $n=WWW::Mechanize->new();
$n->get( q(http://www.nintendo-europe.com/NOE/de/DE/logout/index.jsp?DPSLogout=true) );
$n->form_name('login');
$n->set_visible( $user, $password );
$n->submit_form( x => 3, y => 7);
print $n->content()