Select Code to Download

use Tcl::Tk;
my $int = new Tcl::Tk;
...
$int->fileevent($fhbt, readable => \&process_keyboard);
# ....
$int->MainLoop;