#=============================
# Win32::AdminMisc
#=============================
use win32::adminmisc;

$Jobs = Win32::AdminMisc::ScheduleList("\\\\server01", \%Jobs);
print "==>".%Jobs."\n";
foreach $Number (keys(%Jobs)){
    print "Job $Number is $Jobs{$Number}->{Command}\n";
}