scrape.pl

#!/usr/bin/perl
use strict;
use warnings;
use encoding 'utf-8', STDOUT => 'utf-8';
use WWW::Mechanize;

my $mech = new WWW::Mechanize;
my $username = 'username';
my $password = 'password';

my $url = 'https://afsap3e.u-aizu.ac.jp/cvps/';
$mech->get($url);

$mech->submit_form(
  form_number => 1,
  fields => {
  	'txt_id' => $username,
    'txt_pw' => $password,
  },
);

print $mech->content;