Help for this page
#!/usr/bin/perl use warnings; ... -command => sub{ $ec_date->execute_command })->pack; MainLoop;
#!/usr/bin/perl -w use Tk; ... MainLoop;