Падает Демон перл

 
#!/usr/bin/perl -w
#use strict;
use IO::Socket;
use Net::Telnet::Cisco;
if ( ` ps afx | awk '/[0-9]+ server_telnetd/ {print $1;}'`) {
 
   # чтобы не запустить еще один экземрляр.
      print "Usage: service exec-daemon {start|stop}\n exit...\n ";
      exit;
 
 }
 $0 = "server_telnetd"; # даем имя процессу , для красоты
my $basedir="/home/admin/socket/";
sub coderef{
    local $err=@_[0];
    print "\n Error\n";
    print $err;
    if($err=~m/read error/ || $err=~/write error/){
        if($ip eq $cisco1_ip){
            $t1->open($cisco1_ip);
            $t1->login($cisco_user,$cisco_pass);
            @lines=$t1->cmd("configure terminal");
            @lines=$t1->cmd($comm);
            print @lines;
        }
        if($ip eq $cisco2_ip){
            $t2->open($cisco2_ip);
            $t2->login($cisco_user,$cisco_pass);
            @lines=$t2->cmd("configure terminal");
            @lines=$t1->cmd($comm);
            print @lines;
        }
    }
    print "\n End of error\n";
    print "comm=$comm;ip=$ip\n";
}
local $t1 = Net::Telnet::Cisco->new(Timeout => "120",Input_log=>$basedir."ind.log",Output_log=>$basedir."outd.log",Errmode => sub {&coderef});
local $t2 = Net::Telnet::Cisco->new(Timeout => "120",Input_log=>$basedir."in2d.log",Output_log=>$basedir."out2d.log",Errmode => sub {&coderef});
$cisco1_ip="192.168.1.1";
$cisco2_ip="192.168.1.2";
$cisco_user = "user";
$cisco_pass = "pass";
$t1->open($cisco1_ip);
$t1->login($cisco_user,$cisco_pass);
$t2->open($cisco2_ip);
$t2->login($cisco_user,$cisco_pass);
unlink "/tmp/mysock2";
my $server=IO::Socket::UNIX->new(Local => "/tmp/mysock2", Type => SOCK_STREAM, Listen => 5) or die $@;
$server->autoflush(1);
my @lines;
while(my $client=$server->accept()){
  my $data= <$client>;
  print $data, $/;
  local($ip,$com)=$data=~m/(\d+\.\d+\.\d+\.\d+);(.+)$/;
  @coms=split(/;/,$com);
  print @coms;
  if($ip eq $cisco1_ip){
  if(!$t1){
    print("reconnect t1\n");
    $t1->open($cisco1_ip);
    $t1->login($cisco_user,$cisco_pass);
  }
  foreach $comm(@coms){
  @lines=$t1->cmd($comm);
  print @lines;}
  }
  if($ip eq $cisco2_ip){
  if(!$t2){
    print("reconnect t2\n");
    $t2->open($cisco2_ip);
    $t2->login($cisco_user,$cisco_pass);
  }
   foreach $comm(@coms){
    @lines=$t2->cmd($comm);
    print @lines;}
  }
 }
 close($server);
$t1->close();
$t2->close();