Select Code to Download

#!/usr/bin/perl
#use strict;
...

print($tPower);
print("\n");

set desiredPort to "/dev/cu.usbserial"

...
on error
    serialport close tPort
end try