smaller timeouts

diff --git a/dialog.pl b/dialog.pl
index dbab70b..b0e630d 100755 (executable)
--- a/dialog.pl
+++ b/dialog.pl
@@ -12,8 +12,8 @@ $port->parity('none');
 $port->stopbits(1);
 $port->handshake('none');
 
-$port->read_char_time(1000);
-$port->read_const_time(3000);
+$port->read_char_time(500);
+$port->read_const_time(1000);
 
 sub as_hex {
        my @out;