for(;;){
        (my $count, my $result) = $PortObj->read(500);
        print "$result\n";
}