#!/usr/bin/perl
use strict;
use warnings;

# Movie is the only package name I found in the module, 
# so I'm guessing it is also the module's name.
use Movie;

for my $title (sort keys %movies_data) {
    my $movie = 'Movie'->new( title => $title,
                              map { (my $t = $_) =~ s/ /_/;
                                    $t => $movies_data{$title}{$_} }
                              keys %{ $movies_data{$title} });
    print $movie->movie_is, "\n";
}