Help for this page
$slide = $ppt->Slides->Add($_, ppLayoutBlank) for 1..4;
foreach my $good_guy ( @ARGV ) { push @my_attr, get_attributes( $good_guy ); }