------------------------------------------------------------
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
#use Serial 'Serial_Init';

Serial_Init();    # Initialise the interface

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

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

#Serial_Close();    # This approached removed the closing error wrt $port
                    # now is not required due to END code added to module

----------------------------------------------------------------