Pupek internetu

#!/usr/bin/perl
$memory = 0;
$debug = 0;
while (true){
  @lines = `hcitool scan`;
    $online = 0;
    foreach $line (@lines){
      if ($line =~ /00:0E:ED:58:02:EA/){
        $online = 1;
      }
      if ($debug){
        print $line;
      }
    }
    if ($debug){
      print "\tOnline $online\n";
      print "\tMemory $memory\n";
    }
    if (( ($online == 1)&($memory == 0) )||( ($online == 0)&($memory == 1) )){
      #zmena stavu
      $memory = $online;
      if ($debug){
        print "\nZmena na $online\n";
      }
      print `telnet katka 1000$online 2>&1 > /dev/null`;
    }
  sleep 10;

}