use strict;
use warnings;
use Nagios::Plugin;
use Data::Dumper;
my $n=Nagios::Plugin->new(version=>1,usage=>"");
$n->add_arg("percent","",undef,0);
$n->add_arg("msg|message=s","",undef,0);
$n->getopts();
print Dumper $n->opts