open (COM, "+<",$port) or die "Cant open $port\n";
print COM "c ",$station,"\r";  #try to connect
$_=<COM>;  #grab the text returned
print STDOUT "Command sent: ",$_,"\n";
$_=<COM>;  #grab the text returned
print STDOUT "more returned text: ",$_,"\n";
close (COM);