Login Web Menggunakan Perl di terminal Linux

Nanti sajalah ceritanya kenapa saya butuh script dibawah ini :D

a3m-nix@f0re4ch:~$ sudo apt-get install libwww-mechanize-perl

Lalu buat file dengan nama login.pl

#!/usr/bin/perl
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
#action atau file login yang dituju
$url = 'http://localhost/login.html';
$mech->get( $url );
$mech->submit_form(
        form_number => 1,
        fields      => {
#variabel post yang dikirim ke proses login
            username     => 'admin',
            password            => 'admina',
        }
    );
print $mech->content();

setelah file diatas diberikan chmod +x lalu jalankan dengan perintah :

a3m-nix@f0re4ch:~$./login.pl > ouput.html

Bersambung....