Select Code to Download

my %movies_data = (
  'Firefly' => {
...
    'company' => 'Thames Television',
  },
);

package Movies::LookUp;
use strict;
...
}

1;

use strict;
use warnings FATAL => qw( all );
...
  my $movie_is = movie_is($movie);
  print "<p>$movie $movie_is</p>\n";
}