$target_file="filepath";
print "Content-Type: application/x-unknown\n"; 
print "Content-Disposition: attachment; filename=$flid\n\n"; 
$output_file = read_file($target_file);
print $output_file;


sub read_file
{
    local($fname) = @_;
   	local($content);

		open(FILE, "<$fname") || print "cannot open ".$!;
		while(<FILE>)
		{
		    
			$content .= $_;
		}
		
		close(FILE);
		return $content;
} 



##</code><code>##

vy01hc
jy02vl
hr80je
tx92fs
qs13kj
kk96bg
bw95oz
st81lv
zh64yz
vg27tp