#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';
use Mojo::URL;
use Mojo::Util qw(trim);
use Mojo::UserAgent;

my $imdburl = 'http://www.imdb.com/search/title?title=Caddyshack';

# pretend to be a browser
my $uaname = 'Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.93 Safari/537.36';

my $ua = Mojo::UserAgent->new;
$ua->max_redirects(5)->connect_timeout(20)->request_timeout(20);
$ua->transactor->name( $uaname );

# find search results
my $dom = $ua->get( $imdburl )->res->dom;

# assume first match
my $filmurl = $dom->find('a[href^=/title]')->first->attr('href');

# extract film id
my $filmid  = Mojo::URL->new( $filmurl )->path->parts->[-1];

# get details of film
$dom = $ua->get( "https://www.imdb.com/title/$filmid/" )->res->dom;

# print film details
say trim( $dom->at('div.title_wrapper > h1')->text ) . ' (' . trim( $dom->at('#titleYear > a')->text ) .')';

# print actor/character names
foreach my $cast ( $dom->find('table.cast_list > tr:not(:first-child)')->each ){
  say trim ($cast->at('td:nth-of-type(2) > a')->text ) . ' as ' . trim ( $cast->at('td.character')->all_text );
}

##</code><code>##

Caddyshack (1980)
Chevy Chase as Ty Webb
Rodney Dangerfield as Al Czervik
Ted Knight as Judge Elihu Smails
Michael O'Keefe as Danny Noonan
Bill Murray as Carl Spackler
Sarah Holcomb as Maggie O'Hooligan
Scott Colomby as Tony D'Annunzio
Cindy Morgan as Lacey Underall
Dan Resin as Dr. Beeper
Henry Wilcoxon as The Bishop
Elaine Aiken as Mrs. Noonan
Albert Salmi as Mr. Noonan
Ann Ryerson as Grace
Brian Doyle-Murray as Lou Loomis
Hamilton Mitchell as Motormouth