sub plp_writeln {
    # plp_writeln( $HANDLE, @elem );
    # writes @elem joined as one line to the file $HANDLE for .plp
    my $HANDLE = shift;
    my @elem = @_;
    
    print $HANDLE, @elem, qq[\x{0D}\x{00}\x{0A}\x{00}];
}