Добрый день! Прошу помощи в проверке написанного скрипта... Сам не могу разобраться в чем проблема:( В перле я новичек, поэтому некоторые куски брал из инета... Суть ошибки:
serverbsd# ./check_cpu
syntax error at ..../nagios/check_cpu line 7, near "= ;"
Excution of ..../nagios/check_cpu aborted due to compilation errors.

Собственно исходный код:

serverbsd# cat ..../nagios/check_cpu
#! /usr/bin/perl -w
use strict;
my $file = '/var/mbmon-nagios';
my $line;

open FD, $file;
#########################
# Строка в которой ошибка
#########################
$line = ;

close FD;

my ($TEMP_proc1, $TEMP_proc2, $FAN_speed_proc1, $FAN_speed_proc2, $nagios_data, $nagios_status, $exit_code);
my @arg;
@arg = split(/;/, $line);

$arg[0] =~ /^TEMPproc1:(.*)$/;
$TEMP_proc1 = $1;
$arg[1] =~ /^TEMPproc2:(.*)$/;
$TEMP_proc2 = $1;
$arg[2] =~ /^FANspeed_proc1:(.*)$/;
$FAN_speed_proc1 = $1;
$arg[3] =~ /^FANspeed_proc2:(.*)$/;

$nagios_data = sprintf("|TEMP_proc1=%f;;;    TEMP_proc2=%f;;;    FAN_speed_proc1=%f;;;    FAN_speed_proc2=%f;;;",$TEMP_proc1,$TEMP_proc2,$FAN_speed_proc1,$FAN_speed_proc2);
if ( $TEMP_proc1 == 0 ) {
    $nagios_status = "CPU status: CRITICAL, temp_proc1 $TEMP_proc1 %";
    $exit_code = 2;
} elsif ( $TEMP_proc1 < 5 ) {
    $nagios_status = "CPU status: WARNING, temp_proc1 $TEMP_proc1 %";
    $exit_code = 1;
} else {
    $nagios_status = "CPU status: OK, temp_proc1 $TEMP_proc1 %";
    $exit_code = 0;    
}

print $nagios_status . $nagios_data;
exit $exit_code;

И вспомогательный файл откуда берутся данные:
serverbsd# cat /var/mbmon-nagios
TEMP_proc1:33.0;TEMP_proc2:34.0;FAN_speed_proc1:1670;FAN_speed_proc2:1962

Буду премного благодарен за помощь!