Select Code to Download

#!/usr/bin/perl
use warnings;
...
        -command => sub{ $ec_date->execute_command })->pack;

MainLoop;

#!/usr/bin/perl -w
use Tk;
...

MainLoop;