### 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 },
);