Select Code to Download

#!/usr/bin/perl -w
use strict;
...
$port->close || warn "Close Failed!\n";
undef $port;
close(FILE_IN_1);

55 55 05 2f 10 05 10

55 55 01 05 2F 00 00 00 00 10 05 10