use threads;
use threads::shared;
use Time::HiRes;
use Tk;
use Cwd;
use Tk::Icon;
use Tk::TopLevel;
use utf8;
use Win32;
use Win32::TieRegistry;
use Win32::OLE('in');
use Win32::OLE qw(EVENTS);
use Win32::FileOp qw(ShellExecute);
use Net::UPnP::ControlPoint;
use Net::Telnet;
use LWP::Simple;
use POSIX(":sys_wait_h");
use constant wbemFlagReturnImmediately => 0x10;
use constant wbemFlagForwardOnly => 0x20;
require "myhelpscript.pl";

##</code><code>##

pp -v -l C:\Perl\lib -l C:\Perl\site\lib -a C:\Perl\eg\myhelpscript.pl --gui -i C:\Perl\eg\images\logo.ico -o myscript.exe myscript.pl