Can't bless non-reference value at Tk/Image.pm line 23.
at Tk/ChooseDate.pm line 36

##</code><code>##

#! /usr/bin/perl

use warnings;
use strict;
use Tk;
use Tk::ChooseDate;

my $date;
my $mw=MainWindow->new();
my $choosedate = $mw->ChooseDate(
    -textvariable=>\$date,
    -command=>sub{print "$date\n"},
)->pack();
MainLoop;