$ProcessObj->Wait(INFINITE);

#!/usr/bin/perl -w
#-------------------- Package Definition --------------------
#----------------------- Dependencies -----------------------
use Tk;

#---------------- User Defined Declarations -----------------
use Win32::Process;
use FindBin qw($Bin); chdir($Bin);



#------------------------ Main Window -----------------------
my $mw = MainWindow->new( -height => 104, -width => 305);
$mw->title( 'sdfsdfsd');


#---------- Adding Button
my $Button0 = $mw->Button(
                           -text => "Button0",
                           -relief => "raised",
                           -command => \&t1
                           );
$Button0->place( -x => 45, -y => 28, -height => 34, -width => 145);

#------------------------ Main Menu -------------------------

#-------------------- Sizing Main Window --------------------
$mw->geometry('305x104');
#---------------------- User Load Code ----------------------




Win32::Process::Create($ProcessObj,'t1.exe','t1.exe',0,NORMAL_PRIORITY_CLASS,".") or die $!;
$ProcessObj->Resume();



MainLoop;
#------------------------ Main Body -------------------------

sub t1
{
 los('t1.exe');
}




sub los
{
Win32::Process::Create($ProcessObj,$_[0],$_[0],0,NORMAL_PRIORITY_CLASS,".") or die $!;
$ProcessObj->Resume();
}

#---------------------- Image Resources ---------------------

#!/usr/bin/perl

use FindBin qw($Bin); chdir($Bin);
use File::Basename;

#use Win32::API;
use constant NULL => 0;
#use Image::Magick;

#use File::Find;

use Tk;
my $mw2 = MainWindow->new( -height => 10, -width => 10);
$mw2->title( 'hulli');

MainLoop;