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

my ($EntryMan, $TL, $Process);

my $Command = "C:\\Perl\\bin\\perl.exe";
my $Inherit = 0;
my $Dir = ".";

my $mw = MainWindow->new;
$mw->title("MainWindow");
$mw->Entry(-selectbackground=>'white',-selectforeground=>'black',-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 => sub
                                        {
                                        print("Schedule is running\n");
#                                       [\&getProcess, $EntryMan];
                                        },
                -comment => "Do an activity")->pack();
        } else {
        $TL->deiconify();
        $TL->raise();
        }
}

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