my $results_href = $search->find(
    id     => 'tt0114694',
    source => 'imdb_id'
);
my $movies_aref = $results_ref->{movie_results};
printf(qq{~~~~%d  M O V I E  R E S U L T S~~~~\n}, scalar @{$movies_aref}) if @{$movies_aref};
foreach my $movie_href (@{$movies_aref}) {
  $title = $movie_href->{title};
  $summary = $movie_href->{summary};
  print qq{
    Title:   $title
    Summary: $summary
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  };
}
print qq{~~~~N O  M O V I E  R E S U L T S :( :(~~~~\n} if @{$movies_aref};