package Monitor;

BEGIN {
   ...
}

END {
   ...
}

$SIG{__DIE__} = sub {
   die $@ if $^S;
   ...
};

$SIG{__WARN__} = sub {
   ...
};

1;