Select Code to Download

#! C:\perl\bin\perl.exe

use strict;
...

$port->close || warn "Close Failed!\n";
undef $port;