#!/usr/bin/perl -w

use strict;

package MyApp;
#use Wx qw[:allclasses];
use Wx qw[:misc :frame :datepicker];
use Wx::DateTime;
use base qw(Wx::App);

sub OnInit {
    my $self = @_;

    my $frame = Wx::Frame->new(
        undef,
        -1,
        'A wxPerl App',
        wxDefaultPosition,
        wxDefaultSize,
        wxDEFAULT_FRAME_STYLE | wxMAXIMIZE_BOX | wxCLOSE_BOX
    );

    Wx::DatePickerCtrl->new($frame, -1, new Wx::DateTime(), wxDefaultPosition, wxDefaultSize, wxDP_DROPDOWN);

    $frame->Center();
    $frame->Show();
}

MyApp->new()->MainLoop();