print "Content-Type: text/plain\n";
print "Content-Length: $filesize\n";
print "Content-disposition: attachment; filename=$filename\n\n";

open FILE, $filename or die "can't open $filename: $!\n";
print while <FILE>;
close FILE;