#! /usr/local/bin/perl

use strict;
use warnings;

#use PPSSubs;	# Process doesn't wait if this line is here

use Tk;
use Tk::ROText;
use Win32::Clipboard;
use Win32::Process;

use PPSSubs;	# Process waits if this line is here

$::CLIP = Win32::Clipboard();


$::mainwin = MainWindow->new (-background => '#b5bfcc');
$::mainwin->title('MWeb Preprocessing System');
$::mainwin->geometry("-200-200");