$scheduler = Win32::TaskScheduler->New();
$scheduler->SetTargetComputer("173.1.105.147");
$tsk="my_task";
%trig=(
       'BeginYear' => 2010,
       'BeginMonth' => 02,
       'BeginDay' => 9,
       'StartHour' => 13,
       'StartMinute' => 06,
       'TriggerType' => $scheduler->TASK_TIME_TRIGGER_DAILY,
       'Type'=>{
               'DaysInterval' => 1,
       },
);

$scheduler->Activate($tsk);
foreach $k (keys %trig) {print "$k=" . $trig{$k} . "\n";}
$scheduler->NewWorkItem($tsk,\%trig);
$scheduler->SetApplicationName("cmd.exe");
$scheduler->SetAccountInformation('usrname','pwd'); #username and pwd for the particular task
$scheduler->Save();
$scheduler->End();