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