Select Code to Download

use warnings;
use strict;
...
    return $block;

    }

c:\@Work\Perl\monks\catalyst_list>perl edit_nagios_cfg_2.pl
define service {
...
      notifications_enabled           1
      register                        1
 }