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

while(1) {
	print ">>";
	my $command = <>;
	if($command =~ /bye/i) {
		last;
	}

	print PORT $command;
	my $serial = <PORT>;
	print $serial;
}