Select Code to Download

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

$my_html_file = "some_file.htm";

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