Help for this page
##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."); }
www.com | www.net | www.org
No recent polls found