---------------------------------------------------------------
# ########################################################################
test_Serialpm.pl

#!usr/bin/perl

use strict;
use warnings;


use lib '.';      # The Serial.pm is in the current folder

use Serial;       # use a "1 off type of macro expansion" of the Serial module

Serial::Serial_Init();    # Initialise the interface

my $response = Serial::Serial_TrxRcv("at dp");   # Transmit "AT Diplay Protocol" and get a response

print "Response is; $response\n";
print "Response num char; ".length($response)."\n";
------------------------------------------------------------------