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

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


my $library = library->new(name => "Lucky's");
foreach my $movie (values %movies_data) {
    $library->add_movie(movie->new(%$movie));
}

$library->print();