Use the Win32::TaskScheduler module.

use strict;
use warnings;

use Win32::TaskScheduler;

my $scheduler = Win32::TaskScheduler->New();
my @jobs = $scheduler->Enum();
$scheduler->End();

foreach (@jobs) {
   print "JOB: [$_]\n";
}
[download]