imaso login

gistfile1.pl

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;

use WWW::Mechanize;

my %login_info = (ID1 => 'password',
                  ID2 => 'password',);

for my $id (keys %login_info) {
    print "Login ID: $id"."\n";

    my $mech = WWW::Mechanize->new();
    $mech->agent('Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)');
    $mech->add_header(Referer => 'http://imaso.co.kr/?doc=login.html');

    my $res = $mech->get('http://imaso.co.kr/?doc=login.html');
    $mech->post('http://imaso.co.kr/?doc=bbs/mblogincheck.php', { url       => '%2F',
                                                                  mb_id     => $id,
                                                                  mb_passwd => $login_info{$id},
                                                                  'fhead.x' => 29,
                                                                  'fhead.y' => 11, },
            );

    $res = $mech->get('http://www.imaso.co.kr/?doc=v2/index.php');
}