use strict;
use Win32::AdminMisc;

my $server="\\\\twjimmywang";
my %JobInfo;
my $Day;
my @DOM;
my %Jobs;
my $Number;

if (Win32::AdminMisc::ScheduleGet($server, 3, \%JobInfo)){
    foreach $Day (1..31){
        push(@DOM, $Day) if ($JobInfo{DOM} & 2**$Day);
    }
    print "This job will run on the following days of the month:\n";
    print join(", ", @DOM);
}
print "==>".%JobInfo."\n";

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