!/usr/bin/perl

use strict;
use warnings;

use Mojo::DOM;
use Mojo::UserAgent;

use Data::Printer;

my $ua = Mojo::UserAgent->new;

my $url = 'http://www.testURL.com';

my $page = $ua->get( $url )
        ->res
        ->dom;

my $dom = Mojo::DOM->new( $page );

for my $deal ( $dom->find('p.title > a.title')->each ){

        ProcessLink( $deal->attr('href'), $deal->text );
}

sub ProcessLink{

    warn "process link\n";
    my ( $linkURL, $linkText ) = @_;
    print "Link: $linkURL | Title: $linkText";


}