my $playlist= pack "S*", unpack "C*", join "\r\n", "PLP PLAYLIST", "VERSION 1.20";
open PLAYLIST, ">", 'playlist.plp' or die "Couldn't open playlist.plp: $!\n";
binmode PLAYLIST;
print PLAYLIST $playlist;