#!/usr/bin/perl

use Nagios::Plugin::DieNicely;

my $obj = MyModule->new();

package MyModule;

sub new{
	die "died and Nagios can detect me";
}

1;