my $datecontrol = $mainform->AddDateTime(-name=>"datecontrol",-left=>10,-top=>500,-width=>150,-height=>30);
    $datecontrol->Format("yyyy-MM-dd");
    $datecontrol->SetDate(19,7,2005); #day,month,year as specified in the docs