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

##</code><code>##

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

##</code><code>##

$a = <PORT>;