Select Code to Download

Name "Device::SerialPort::carp" used only once: possible typo at dial.
+pl line 58.

eval "use Device::SerialPort; 1" or die $@;
   my $directory = '/dev';
...
          push(@ok_ports, $port);
          sleep (1);
    };