#!/usr/bin/perl
use warnings;
use strict;
use URI;
use Web::Scraper;

open FILE, ">file.txt" or die $!;

# website to scrape
my $urlToScrape = "http://www.molmovdb.org/cgi-bin/browse.cgi";

# prepare data
my $teamsdata = scraper {
 # we will save the urls from the teams
 process "tr.cell2> A", 'urls[]' => '@href';
 # we will save the team names
 process "tr.cell2> A", 'teams[]' => 'TEXT';
};

# scrape the data
my $res = $teamsdata->scrape(URI->new($urlToScrape));