use strict;
use warnings;
use Tk;
use Win32::Process;
use Tk::Schedule;

my ($EntryMan, $TL);
my $RefEntryMan = \$EntryMan;

my $mw = MainWindow->new;
$mw->title("MainWindow");
$mw->Entry(-textvariable=>\$EntryMan)->pack();
$mw->Button(-text=>"Schedule",-command=>\&doTopLevel)->pack();

MainLoop;

sub doTopLevel
{
	if(!Exists($TL))
	{
	$TL=$mw->Toplevel();
	$TL->title("Schedule-Modul");
	$TL->Schedule( 
		-interval => 30,
		-repeat => "once",
		-command =>[\&getProcess, $RefEntryMan],
		-comment => "Do an activity")->pack();
	} else {
	$TL->deiconify();
	$TL->raise();
	}
}

sub getProcess
{
my $Process;
my $Inherit = 0;
my $Dir = ".";
my $Command = "C:\\Perl\\bin\\perl.exe";
my ($GetProcess) = @_;
my $FwdProcess = ${$GetProcess};

my $MyArg = "perl test.pl -a $FwdProcess";
Win32::Process::Create($Process,
				$Command,
				$MyArg,
				$Inherit,
				NORMAL_PRIORITY_CLASS,
				$Dir) or die Win32::FormatMessage(Win32::GetLastError());
}