Select Code to Download

### Example 000
my  $get_args   = {};
...
   $usr_input->{title},
   $usr_input->{dept },
);

### Example 001 (compact syntax)
my $usr_input   =  &TkDataDialog(
...
   $usr_input->{title},
   $usr_input->{dept },
);

use Tk;
use Tk::BrowseEntry;
...
use XML::Twig;      ## to support xml-dialog syntax format
use CSS::Tiny;      ## to support css-like dialog syntax
use Data::Dumper;   ## only used for debugging and tests