my $char = $port->lookfor();
sleep(4); # number will be decreased in production
 if ($char) {
        print "$char\n";