BlueTooth w Perlu: skrypt nie wysyła wiadomości

Witam
Napisałem z kolegą taki oto kod w Perlu, jego celem jest znajdowanie urządzeń w pobliżu i wysyłanie do nich pliku :]

use strict;
use warnings;
use Net::Bluetooth;
use Net::OBEX;
use lib qw{lib  ../lib};
my ($OPT,$DEV,$OBEX,$ADR,$name);
print("BlueJacker \n"); # By XXXX i YYYY
print("Wybierz 1 by wysłac jakas wiadomosc wybierz 2 aby wypierdalac\n");
$OPT = <STDIN>;

if($OPT==1) { #Szukaj ciongle
print("Ok.Wpisz nazwę pliku do wysłania\n");
$name=<stdin>;
     
  while(1){
my $DEV = get_remote_devices();
  foreach $ADR (keys %$DEV){
  my $OBEX = Net::OBEX->new;
  $OBEX->connect(address=>$ADR,port=>9) or die "Something goes wrong: ".$OBEX->error;
  $OBEX->success or die "SOMETHING GOES WRONG: ".$OBEX->error;
  $OBEX->set_path or die "SOMETHING GOES WRONG: ".$OBEX->error;
  $OBEX->success or die "SOMETHING GOES WRONG: ".$OBEX->status;
  $OBEX->put($name) or die "SOMETHING GOES WRONG: ".$OBEX->error;
  $OBEX->close("Wysłano wiadomość do $DEV->{$ADR}");
  }
  }
  } else {exit; }

Problem jest taki: kod działa (nie ma błędów) ale jak miałem włączony telefon w pobliżu z włączonym BlueTooth, to nie było żadnej wiadomości, za to Windows (7 - przypis autora) wykrył nowe urządzenie o nazwie TVBluetooth (podejrzewam że to był ten komputer) i próbował się z nim połączyć.
Adapter bluetooth mam wbudowany w laptopa

dodanie znacznika <code class="perl"> - furious programming