my $images = $miDoc->{Images} || die $^E; my $first = $images->Item(0) || die $^E; my $layout = $first->{Layout} || die $^E; my $text = $layout->{Text} || die $^E;