Help for this page

Select Code to Download


  1. or download this
    %movies = (
    'Gone with the Wind' => {
...
    }
    # etc.
);
  2. or download this
    for $key (sort keys %movies) {
    print "$key:\n";
...
  Year: 1939
  Stars: Judy Garland, Billie Burke
  Director: Victor Fleming
  3. or download this
    package MyDVDs;

...
    $self->{director} = shift if @_;
    return $self->{director};
}
  4. or download this
    use MyDVDs;

...
  Year: 1939
  Stars: Judy Garland, Billie Burke
  Director: Victor Fleming