Select Code to Download

sub plp_writeln {
    # plp_writeln( $HANDLE, @elem );
...
    
    print $HANDLE, @elem, qq[\x{0D}\x{00}\x{0A}\x{00}];
}

sub plp_write {
    # plp_write( $HANDLE, @elem );
...
    ( my $str = join('',@elem) )=~s[\n][\x{0D}\x{00}\x{0A}\x{00}]gs;
    print $HANDLE, $str;
}