Hii, I have a text field named Date and I want add a button beside it so that when user clicks it a calendar opens up and the user can select any date. Accordingly the text field would be updated based on the selection.

use warnings;
use Win32::GUI();

my $MainWindow = Win32::GUI::Window->new(
    -text => 'Main',
    -name => 'MainWindow',
    -pos  => [  10,  10 ],
    -size => [ 700, 700 ],
    -dialogui => 1,
);
        
my $IDTextFields = $MainWindow->AddTextfield(
                -name    => "ID",
                -width   => 150,
                -height  => 20,
                -pos => [90,8],
                -tabstop => 1,
                    -prompt => "From:",
        );
        
my $NameTextField = $MainWindow->AddTextfield(
                -name    => "Name",
                -width   => 150,
                -height  => 20,
                -pos => [90,38],
                -password => 1,
                -tabstop => 1,
                -prompt => "To:",
        );

my $DateTextField = $MainWindow->AddTextfield(
                -name    => "Date",
                -width   => 150,
                -height  => 20,
                -pos => [90,68],
                -password => 1,
                -tabstop => 1,
                -prompt => "Date(DD-MM-YY)",
        );

my $loginSave = $MainWindow->AddButton(
                -name => "Save",
                -text => "Save",
                -pos  => [ 50, 100 ],
        -tabstop => 1,
        );
        
my $loginReset = $MainWindow->AddButton(
                -name => "Reset",
                -text => "Reset",
                -pos  => [ 100, 100 ],
        -tabstop => 1,
        );

$MainWindow->Show();
Win32::GUI::Dialog();

sub Reset_Click {
            #wish to reset the textfield content
            return 0;
        };

sub Save_Click {
            #wish to call a subroutine
            return -1;
        };
[download]

Can anyone guide me how to achieve it..Thanks