gistfile1.txt

#!/usr/local/bin/perl                                                                               

use strict;
use warnings;
use WWW::Mechanize;
use Term::QRCode;

my $mech = WWW::Mechanize->new;
$mech->get( "http://conferences.yapcasia.org/ya2009/main" );
$mech->submit_form(
    form_number => 1,
    fields => {
        credential_0 => 'username', 
        credential_1 => 'password', 
    },
);

print Term::QRCode->new->plot( $1 ), "\n"
    if $mech->content =~ m#<strong>(\d+)</strong>#;