Проблемы со скриптом

Помогите пожалуйста. Нужно сделать мониторинг 80 порта через Nagios, есть такой скрипт

#!/usr/bin/perl -w
use Net::Telnet;
use strict;
my $c1 = Net::Telnet->new(Timeout=>60);
my $connect = $c1->open(Host=>'ya.ru',Port=>'80');
#print  $connect;

if ( $connect == "1") {
   print "0";
   exit 0;
} else {
   print "2";
   exit 2;
}

Ну он не срабатывает,может быть кто нибудь что подскажет. Заранее спасибо