#!/usr/bin/env perl

use strict;
use warnings;

use Tk;

my $mw = MainWindow->new;

my $frame = $mw->Frame->pack;
$frame->Label(-text => 'Hello, world!')->pack;
$frame->Button(-text => 'Quit', -command => sub { exit })->pack;

MainLoop;

##</code><code>##

$ pp -o pm_test_pp_tk.exe pm_test_pp_tk.pl

##</code><code>##

$ ls -l pm_test_pp_tk.*
-rwxr-xr-x  1 ken  staff  6893413 22 Nov 12:13 pm_test_pp_tk.exe
-rwxr-xr-x  1 ken  staff      238 22 Nov 12:10 pm_test_pp_tk.pl