my $ptext  = $pboard->{'text'};