---------
<c>
use Time::Local;
#use warnings qw(FATAL);
#use diagnostics;
#$SIG{__WARN__} = sub { $DB::single = 1; CORE::warn(@_) };

# variable settings
$target="raksan";
$wwwpath="/$target";
$wwwrealpath="/home/nagios/stat/$target/htdocs";
$node = param("node");
$tmpgraph="rrd-$$.gif";
$now=time;
$recenttimes = $now - 3600 * 36;
$aix = 1 if ($node =~ /amsr/);