Select Code to Download

use strict;
use warnings;
...
   $gotFiles->{"$ENV{DOCUMENT_ROOT}/$filename"} = $filedata;
   return 1;
}