package ManAudio;
use base ManVideo;

sub newAudioRecord {$_[0]->{VideoType}=$_[0]->{AudioType};
                    ManVideo::newVideoRecord(@_)}
                    # There is probably a way to use __SUPER__ .. (Aha - Anonymonk has obliged)
# Too lazy/too late  to figure out the *Alias syntax ,
#   which would be an alternative way of calling subs in the other package