Select Code to Download

#!perl
use strict;
...

print ( "Saving '$filename'\n" );
$ppt->SaveAs($filename);