### Example 000
my  $get_args   = {};
    $get_args->{fname}  = '';
    $get_args->{lname}  = '';
    $get_args->{title}  = '';
    $get_args->{dept }  = '';
my $usr_input   =  &TkDataDialog($get_args,'data_rec');

&DoCreateTheEmployeeFunction(
   $usr_input->{fname},
   $usr_input->{lname},
   $usr_input->{title},
   $usr_input->{dept },
);

##</code><code>##

### Example 001 (compact syntax)
my $usr_input   =  &TkDataDialog(
    'fname lname title dept',
    'fld_list',);

&DoCreateTheEmployeeFunction(
   $usr_input->{fname},
   $usr_input->{lname},
   $usr_input->{title},
   $usr_input->{dept },
);

##</code><code>##

use Tk;
use Tk::BrowseEntry;
use Tk::DialogBox;
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