Select Code to Download

use Win32::SerialPort;  # Use instead for Windows
my $port=Win32::SerialPort->new("COM1") || die "couldn't open COM1";
...
       print "5\n";
} while 1;
$port->close;

$port = new-Object System.IO.Ports.SerialPort COM1,9600,None,8,one
$port.open()
$port.close()