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";