foreach (@files) {
print "<br> Delete this File: <INPUT TYPE=\"checkbox\" NAME=\"files\" VALUE=\"$_\">\n";
}

##</code><code>##

foreach ($query->param('files')){
unlink($_);
}