Perl Tk Plain Window

---

examples/tk/plain.pl

use strict;
use warnings;

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