Select Code to Download

Dim slide As slide
Dim shape As shape
...
    Next shape
Next slide
End Sub

use strict;
use warnings;
...

print ( "Saving '$filename'\n" );
$pp->save_presentation($filename);