perl WWW::MechanizeでYahoo!Japanにログインする

#!/usr/local/bin/perl
# Coded by kaworu

package K;
use strict;
use warnings;

use WWW::Mechanize;

sub yahoo_login
{
	my ($login, $passwd) = @_;
	my $url = 'https://login.yahoo.co.jp/config/login';
	my $mech = WWW::Mechanize->new();
	$mech->get($url);

	if(! $mech->success() )
	{
		return;
	}
	if(! $mech->is_html())
	{
		return;
	}

	my $r = $mech->submit_form(
		form_name=>'login_form',
		fields => {
			login => $login,
			passwd => $passwd,
		},
	);
	if (! $mech->success())
	{
		return;
	}

	$url = 'http://notepad.yahoo.co.jp/YYY,47273c';
	$mech->get($url);
	print $mech->content();
}

my $login = 'あなたのYahoo!Japan ID';
my $passwd = 'パスワード';
yahoo_login($login, $passwd);

	$url = 'http://notepad.yahoo.co.jp/YYY,47273c';
	$mech->get($url);
	print $mech->content();