#!/usr/bin/perl
use strict;
use warnings;
use Device::SerialPort;

my $PORT = "/dev/ttyUSB0";
my $serialData;
my $tx;
my $rx;

my $ob = Device::SerialPort->new($PORT) || die "Can't Open $PORT: $!";
$ob->baudrate(115200) || die "failed setting baudrate";
$ob->parity("none") || die "failed setting parity";
$ob->databits(8) || die "failed setting databits";
$ob->handshake("none") || die "failed setting handshake";
$ob->write_settings || die "no settings";
$| = 1;

$tx = $ob->write("AT&K0\n");
 do
	{		
		$rx = $ob->read(255);		
		chomp $rx;
		print $rx;	
	}

	until ($rx =~ m/OK/);
	print "OK received\n";