Select Code to Download

use warnings;
use strict;
...
$heading_1_font -> {Name} = "Bookmann";
$heading_1_font -> {Size} = 20;
$heading_1_font -> {Bold} =  1;

use warnings;
use strict;
...
  $document->PageSetup->{Orientation} = wdOrientLandscape;
}