gistfile1.pl

use strict;
use warnings;
use Config::Pit;
use WWW::Mechanize;

my $config = pit_get('www.naver.com', require => {
   url => "your url on example",
   username => "your username on example",
   password => "your password on example",
});

my $mech = WWW::Mechanize->new;
$mech->get($config->{url});
$mech->follow_link(n => 3);
$mech->follow_link( text_regex => qr/download this/i );
$mech->follow_link( 'http//www.host.com/index.html' );
$mech->submit_form(
   form_number => 3,
   fields => {
     username => $config->{username},
     password => $config->{password},
   },
);