Select Code to Download

use Exporter;
our @ISA = qw(Exporter);
...
   LOG_ERROR => 3,
};
our @EXPORT = qw(LOG_DEBUG LOG_INFO LOG_WARN LOG_ERROR);

my $obj = MyObject->new(level=>LOG_DEBUG);