Select Code to Download

open( PORT, "+> COM1" ) or die "Can't open COM1: $!";

open( PORT, "+> COM5" ) or die "Can't open COM5: $!";
print PORT "AT";

$a = <PORT>;