#!/c:/perl

use Win32;
use Win32::Process;
use Tk;
use Tk::HList;
use Tk::Notebook;

Win32::Process::Create($Win32::Process::Create::ProcessObj,
    'C:/perl/bin/perl.exe',
    'perl c:/perl/Format.pl',
    0,
    DETACHER_PROCESS,
    ".") or 
    die print_error();


use vars qw($int $entry);

&init_ui();

MainLoop;

sub init_ui
{
    my $mw = MainWindow->new;
    $mw->title("TEST CASE"); 
}

sub print_error()
{
    return Win32::FormatMessage( Win32::GetLastError() );
}