use strict;
use Mail::IMAPClient;
use Data::Dumper;
use Win32::AdminMisc;

my %jobs;
my $jobs= Win32::AdminMisc::ScheduleList(
    "\\\\deevaubee",
    \%jobs
);
if( defined $jobs ) {
    foreach my $job( keys %jobs ) {
        print "Job $job is ", $jobs{$job}->{"Command"}, "\n";
    }
} else {
    print "fail\n";
}