Select Code to Download

use Tk;
my $mw = MainWindow->new;
...
    CORE::exit();
}
sub process_line { print "user input: $_[0]\n" }