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