$download_filetype = '.ppt';

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

$filename = join('_', $session_id, $download_filetype);

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

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