#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;
use Data::Dumper;

use IMDB::Film;

my $imdbObj = new IMDB::Film(crit => 'Casablanca');
my $recommendations = $imdbObj->recommendation_movies();

# Attempt to print out values from recommendation_movies()
    my %recommendations;
    print map { "$_ => $recommendations{$_}\n" } values %recommendations;
    ## Doesn't return anything ##

# Debugging to see what's in recommendation_movies()
    $imdbObj->status ? 
        print "$recommendations\n"
                . Dumper($recommendations)
                    . "$imdbObj->recommendation_movies()\n"
                        . Dumper($imdbObj->recommendation_movies())
        : print "ERROR: $imdbObj->error";

__END__

RETURNS:
HASH(0x100a385a8)
$VAR1 = {};
IMDB::Film=HASH(0x100805140)->recommendation_movies()
$VAR1 = {};