Виртуальный com-порт на FTDI232RL

[    2.169194] usb 5-2: Manufacturer: FTDI
[    8.411137] usbcore: registered new interface driver ftdi_sio
[    8.411197] USB Serial support registered for FTDI USB Serial Device
[    8.411384] ftdi_sio 5-2:1.0: FTDI USB Serial Device converter detected
[    8.414290] usb 5-2: FTDI USB Serial Device converter now attached to ttyUSB0
[    8.414315] ftdi_sio: v1.6.0:USB FTDI Serial Converters Driver

Bus 005 Device 002: ID 0403:6001 Future Technology Devices International, Ltd FT232 USB-Serial (UART) IC

ftdi_sio               34286  1
usbserial              28141  3 ftdi_sio
usbcore               129077  7 usbmon,rtl8150,ftdi_sio,usbserial,uhci_hcd,ehci_hcd

!/usr/bin/perl -w
#use strict;
$| = 1;
#
# Получаем текущие данные из счетчика Меркурий-200.02
use IO::File;
use Device::SerialPort;
use POSIX ();
my (@args, %opts);
foreach(@ARGV){
   if(/^\-(\S)(.*)/){    $opts{$1} = $2;    } else {    push @args, $_;    }
}
my $verb = exists $opts{v};
my $retries = (exists $opts{r}) ? $opts{r} : 10;
my $showhead = exists $opts{s};    # Показать формат выходных данных 
my ($saddr, $device) = (@args);
die "Usage: $0 addr serial-dev"    unless(defined $saddr && $device);
my $addr = sprintf("%08x",$saddr);
$addr =~ s/(\w\w)(\w\w)(\w\w)(\w\w)/$1 $2 $3 $4/;
print "Addr: [$addr]\n"    if $verb;
my $mbtx = "/var/www/counter/mbtx";
my $crcu = "/var/www/counter/crc";
my $STALL_DEFAULT=1;    # how many seconds to wait for new input
my $MAXLENGTH = 255;    # # наибольшая длина пакета 
my $port=Device::SerialPort->new("$device");
my ($status,$cnt,@data);
if($verb) {
    print "Connection testing ... "    if $verb;
    $status = tst($device,$port,$addr);
    print "$status\n"    if $verb;
    die    "[$addr] Connection failed: [$status]"    unless($status=~/ok/);
}

crw-rw-rw- 1 root dialout 188, 0 Сен 16 07:20 /dev/ttyUSB0