Inheritance
 previous slidetable of contentsnext slide

Video.pm
package Video;

require Movie;

use vars qw(@ISA);

@ISA = qw(Movie);

sub category {
  my $self = shift;
  return($self->{category});
}

1;