Select Code to Download

use Tk;
use Tk::DialogBox;
...

my (@map_fields, @file_fields, @user_fields, @dsources);
my $user;

    if (! Exists($tli)) {
        $tli = $mainwindow->Toplevel();
...
    }
    debug("-doFileImport");
}

sub doManageUser {
    my $uname;
...

    }
}