Select Code to Download

##Run this program and see what happens
use Tk;
...
        -command => sub { exit })
    -> pack();
MainLoop;

use Tk;
my $mw = new MainWindow;
my $ent = $mw -> Entry() -> pack();
MainLoop;

use Tk;

#Global Variables
...
    my $name = $ent -> get();
    $txt -> insert('end',"$name\($gender\) is $age years old.");
}