Extracting the content 

old-cms.png
use WWW::Mechanize;

my $ua = WWW::Mechanize->new;

$ua->get($cms_url);
my($form) = $ua->forms;

$ua->submit_form(fields => { _perpage => '1000' });

my @art_links = grep { ($_->text || '') =~ /modify/ } $ua->links;