# @playlist has lines with no newlines
my $playlist = undef;
$playlist .= "$_\n" for ( "PLP PLAYLIST\nVERSION 1.20\n\n",  @playlist);
open PLAYLIST, ">", 'playlist.plp' or die "Couldn't open playlist.plp: $!";
print PLAYLIST "$_\x{00}" for (split //,  $playlist);