Select Code to Download

# brings in arrays song_title and song_files
&song_list;
...
foreach my $key (keys %test) {
    print qq[<br> Delete this File: $key <INPUT TYPE="checkbox" NAME="
+files" VALUE="$test{$key}">\n];
    }

# check for tainted data
my $files = $q->param( "files") || error( $q, "couldn't read File valu
+e");
...
unlink($_);
}

my %test = (@song_titles, @song_files);