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

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

#maybe need cookies?
my $n=WWW::Mechanize->new(cookie_jar => {});

$n->get( q(http://www.nintendo-europe.com/NOE/de/DE/logout/index.jsp?D
+PSLogout=true) );
$n->form_name('login');
$n->set_visible( $user, $password );

#specify form to submit
$n->submit_form(form_name => 'login');

print $n->content()