use strict;
use warnings;
use Win32::SerialPort;

# Open COM port
my $COM = Win32::SerialPort->new('COM1') || die("Can't open port.");

# Input
my $sCommand = "SET INTERFACE NETWORK CLI:0 ENABLE";

$COM->write("$sCommand\r");
$COM->read_interval(100);
my $iReadBuffer     = length($sCommand);
my ($count, $sEcho) = $COM->read($iReadBuffer);

# Output
print "----------------\n";
print "$sEcho\n";
print "----------------";
undef $COM;