open PLAYLIST, ">", "playlist.plp" 
    or die "Couldn't open playlist.plp: $!\n";
binmode PLAYLIST, ":raw:encoding(utf16le)" or die "binmode: $!\n";
print PLAYLIST "abcd\r\n";
$\ = "\r\n";
print PLAYLIST "efgh";

##</code><code>##

open PLAYLIST, ">:raw:encoding(utf16le)", "playlist.plp" 
    or die "Couldn't open playlist.plp: $!\n";
print PLAYLIST "abcd\r\n";
$\ = "\r\n";
print PLAYLIST "efgh";