Silly example
previous slidetable of contentsnext slide

package Movie;

sub actors {
  my $self = shift;
  return join(', ', @{$self->{actors}});
}

my $m = {
  title    => 'Losing Chase',
  director => 'Kevin Bacon',
  actors   => [ 'Helen Mirren', 'Kyra Sedgwick', 'Beau Bridges' ]
};
  
bless($m);

print $m, "\n";

Movie=HASH(0xba5d88)

print $m->{title}, "\n";

Losing Chase

print $m->actors(), "\n";      

Helen Mirren, Kyra Sedgwick, Beau Bridges