Используйте sleep
для управления периодом ожидания и используйте WWW::Mechanize
для извлечения данных:
use strict;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
my $url = "http://www.nytimes.com"; # a sample webpage
while (1) {
$mech->get($url);
print $mech->content(format => 'text'); # read docs for WWW::Mechanize for advanced content processing
sleep 300; # wait for 5 minutes
}
РЕДАКТИРОВАТЬ: улучшен процесс поиска содержимого образца.