Help for this page

Select Code to Download


  1. or download this
    my %movies_data = (
  'Firefly' => {
...
    'company' => 'Thames Television',
  },
);
  2. or download this
    package Movies::LookUp;
use strict;
...
}

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