#!/usr/bin/perl

use Nagios::Plugin;

my $num = $ARGV[0] || 500;

my $np = Nagios::Plugin->new;

for my $i (1..2000){
  $np->add_perfdata(label => "perf_$i", value=> $i);
}

$np->nagios_exit( OK, 'Im OK' );
