cpanp_o

#!/usr/bin/env perl
use Modern::Perl;

given ($ARGV[0]) {
    when ("config") {
        print <<END;
graph_title CPAN modules not up to date
graph_args --base 1000 -l 0
graph_vlabel modules
graph_category security
graph_info The number of installed CPAN modules that aren't up to date
count.label modules
count.type GAUGE
count.info The number of CPAN modules that aren't up to date
END
    }
    default {
        my $num = () = qx[cpanp -o];
        say "count.value $num";
    }
}