open(my $fh2, '<:encoding(UTF-8)',$playlistName)
                or die "Could not open playlist file '$playlistName $!";
        while( my $playListRow = <$fh2>){
                chomp $playListRow;

                 if($playListRow =~  /^\s*#/){
                        next;}
                else{
                    # print "$playListRow\n";
                $playListRow = quotemeta($playListRow);
                my $lscom = "ls $playListRow 2>&1";