...

my $end = $folder->Items->Count;
for my $ix ( reverse $end-5 .. $end ){
    print "==========" x 7, "\n";
    my $item = $folder->Items->Item( $ix );
    for my $field ( @fields ){
##        my $val = eval { $item->{ $field } };
        my $val;
        eval {
            $val = $item->{ $field };
            1
        } or do {
            warn "uhoh $folder $ix $item $field : $@ ";
            next;
        };
        print "$field: $val\n";
    }
}

...

my $count = $obj->Folders->Count;
for my $ix ( 1 .. $count ){
    my $item = $obj->Folders->Item($i);
    return $item if $item->name eq $target 
}