# brings in arrays song_title and song_files
&song_list;
&file_list;

#works by single elements
my %test = ($song_titles[0], $song_files[0],
$song_titles[1], $song_files[1]);

foreach my $key (keys %test) {
	print qq[<br> Delete this File: $key <INPUT TYPE="checkbox" NAME="files" VALUE="$test{$key}">\n];
	}

##</code><code>##

# check for tainted data
my $files = $q->param( "files") || error( $q, "couldn't read File value");
$files =~ /^([\/.\w.]+)$/;
# The "untainted" file is now in $1
$files = $1;
die "Bad filename" unless $files;

foreach ($files){
unlink($_);
}


##</code><code>##

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