Select Code to Download

open(PLAYLIST, "<playlist.m3u");
opendir(FILES, 'd:\my files');
my @playlist = ();
...
while(<PLAYLIST>) {
    if(not(/#/)) {print TEMP "$_\n"}
    }