use Tk;
use Tk::MiniCalendar;

my $minical = <PARENT>->MiniCalendar(-day   => $dd,
-month => $mm,
-year  => $yyyy,
-day_names   => \@DAYNAMES,
-month_names => \@MONTHNAMES);

$minical->pack;
# or:
$minical->grid( ... );

my ($yyyy, $mm, $dd) = $minical->date; # --> (2004, 09, 16)