use IMDB::Film;
       
my $imdbObj = new IMDB::Film(crit => 'Monk');

if($imdbObj->status) {
        print "Title: ".$imdbObj->title()."\n";
    	print "Year: ".$imdbObj->year()."\n";
    	print "Plot Summary: ".$imdbObj->plot()."\n";
    	print "Rating: ".$imdbObj->rating()."\n";

	my $recommendations = $imdbObj->recommendation_movies();
        
#<your_wisdom_here>

        while ( my ($key, $value) = each(%$recommendations) ) {
                                            print "$key => $value\n";
                                            }
#</your_wisdom_here>        
	
} else {
		     print "Something wrong: ".$imdbObj->error."\n";
		    }