#!/usr/bin/perl 
 
use strict; 
use warnings; 
use List::Util qw(max); 
 
my $rundsm  = `dsmadmc -id=reports -pa=reports q proc`; 
my @seconds = $rundsm =~ /\((\d+)\s+seconds\)/mg; 
 
if (max(@seconds) >= 1001) { 
    print "Message: Issue Found, Alert Operations\n", 
          "Statistic: 1\n"; 
    exit 1; 
} 
else { 
    print "Message: No Issues Foun\n", 
          "Statistic: 0\n"; 
    exit 0; 
}