sub handleMessages
{
    my $port=shift();
    my %oph=@_;