2 @mailto = qw(root@localhost);

     2 

     3 #@notify_dirs = qw(/etc);

     3 use Sys::Hostname;

     4 my $NODENAME = (split /\./, hostname)[0];

     5 

     6 @mailto      = qw(root@localhost);

     7 $logfile     = "/root/LOG.$NODENAME";

     8 

     9 # @notify_dirs = qw(/etc);