Almost everything works fine, file upload, deleting

But when I put the code for displaying the picture DBMan hangs.
Try to debug, but no luck this time
What's wrong with this piece of code:# --------------------------------------------------------
# How a record will be displayed. This is used primarily in
# returning search results and how it is formatted. The record to
# be displayed will be in the %rec hash.

sub html_record {
my (%rec) = @_;
$rec{$db_key} =~ s/<.?B>//g;

# Replace FieldName below with the names of the fields you want to
# display. Create as many table cells as you wish, one for each field.
print qq|
<TD></TD>
<TD>$rec{'Merk'}</TD>
<TD>$rec{'Type'}</TD>
<td align="right">$rec{'Bouwjaar'}</TD>
<td align="right">$rec{'Gewicht'}</TD>
<td align="right">$rec{'APK'}</TD>
<td align="right">$rec{'Opties'}</TD>
<td align="right">$rec{'Prijs'}</TD>
|;

$file_test = $rec{$db_key};
foreach $file (@files) {
if ($file =~ /^$file_test\./) {
print qq|<img src= "$SAVE_DIRECTORY_URL/$file">|;
$graphic_found=1;
}
}

##########################################################