7. use strict;
use warnings;
use URI;
use Web::Scraper;
use utf8;
use Data::Dumper;
my $url = URI-
>new('file:/home/hsksyusk/dev/pbsample/index.html');
my $geturl = scraper {
process '.post-title a', 'link' => '@href';
};
my $res = $geturl->scrape($url);
warn Dumper $res->{link};