Select Code to Download

# Location of reportsock text file
$rp_loc = '/tmp/reportsock';
...

# Least CPU idle allowed
$least_cpuidle = 80;

#!/usr/bin/perl

...
        $c->close;
        undef($c);
}

#!/usr/bin/perl

...


close(REPORT);