$my_html_file = "some_file.htm";

open(FILE, $my_html_file) or dienice("cannot open file $my_html_file : $_[0] $!");
@LINES = <FILE>;
close(FILE);


$filename = "thetest.ppt";

print "Content-type: application/vnd ms-powerpoint\n";
print "Content-Disposition: attachment; filename=$filename\n\n";

for $i (0..$#LINES) {
	print $LINES[$i];
}