my $filename = "$files_location/$ID";
open(DLFILE, "<", $filename) || Error('open', "file '$filename'");