Select Code to Download

#!/usr/bin/env perl

...
$frame->Button(-text => 'Quit', -command => sub { exit })->pack;

MainLoop;

$ pp -o pm_test_pp_tk.exe pm_test_pp_tk.pl

$ 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