シリアルポートを下記でオープンして
open(COM1, "+>COM1") or die "Can't open COM1: $!";
read($Port,$response,1);
ってやると永久に待っているのですが、１０secで
タイムアウトなんて出来ないんですか？