package AudioRecord;
use parent qw' ManVideo ';
sub new {
   my $class = shift;
   ...
   my $obj = $class->SUPER::new( @_ );
   ...
   return $obj;
}