#!/usr/bin/perl -w
use strict;
use warnings FATAL => qw{ uninitialized };  ## should be in -w!!!

use utf8;

use Win32::PowerPoint;
my $ppt = Win32::PowerPoint->new;
$ppt->new_presentation();
my $slide = $ppt->new_slide();  ## $slide is not used
$ppt->add_text("Please print \x{03B1}");
$ppt->save_presentation('alpha.ppt');
$ppt->close_presentation();