use warnings;
use strict;
use Tk;
use Tk::Bitmap;
my $mw = MainWindow->new();
$mw->getOpenFile();
MainLoop;

##</code><code>##

pp -o test.exe -C -x -vvv test.pl