Select Code to Download

#!/usr/bin/perl -w
use strict;
...
}
Tkx::MainLoop();

$PORT = "COM1"; # port to watch
$ob = Win32::SerialPort->new ($PORT) || die "Can't Open $PORT: $!";
...
print "result = $result\n";

undef $ob;