[root@localhost upload]# ls -al
total 56
drw-rw-rw-   3 wohldad nobody  4096 Aug 24 08:51 .
drwxr-xr-x  26 root    root    4096 Aug 22 00:41 ..
-rw-r--r--   1 nobody  nobody  2318 Aug 24 08:50 1124891436
-rw-r--r--   1 nobody  nobody 14726 Aug 24 08:51 1124891462


##</code><code>##

open(DLFILE, "<$file_location/$id") || Error('open', 'file');
@fileholder = <DLFILE>;
close (DLFILE) || Error ('close', 'file');

print "Content-Type:application/x-download\n";
print "Content-Disposition:attachment;filename=@filename[0]\n\n";
print @fileholder


}

sub Error {
 print "Content-type: text/html\n\n";
 print "The server can't $_[0] the $_[1]: $! \n";
 exit;
  }