webscraper

gistfile1.pl

#!/home/kyanny/perl5/perlbrew/perls/perl-5.12.2/bin/perl
use strict;
use Web::Scraper;
use URI;
use YAML;

my $uri = URI->new("http://chat.studio.cx/o-cha/jsp/superbeginner/enter.php");
my $scraper = scraper {
    process 'form input', 'list[]' => '@name';
};
my $result = $scraper->scrape($uri);

print YAML::Dump $result;