Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    use Tk;
    my $mw=MainWindow->new();
    print STDOUT "PerlTk server: [". $mw->server() ."]\n";