package Voice::Calender; use strict; use base qw(Voice); sub new { my ( $invocant, @jada ) = @_; my $class = ref($invocant) || $invocant; my $obj = { }; bless $obj, $class; } #### use strict; use Voice::Calendar; my $voice = Voice::Calendar->new();