Perl Tk Plain Window



examples/tk/plain.pl
use strict;
use warnings;

use Tk;
my $top = MainWindow->new;
MainLoop;