# Script Schedule.pl
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 =>[\&getProcess, $EntryMan],
                -comment => "Do an activity")->pack();
        } else {
        $TL->deiconify();
        $TL->raise();
        }
}

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

# Script test.pl
use vars qw{ $opt_a };
use Getopt::Std;
getopts('a:') or finish(1);

system("echo String: $opt_a\n");