foreach my $item ( in {$folder->Items} ) {
    foreach my $attachment ( in {$item->Attachments} ) {
        print "Saving " . $attachment->FileName . " from \"" . $item->Subject . "\"\n";
        $attachment->SaveAsFile( "C:\\Download\\" . $attachment->FileName ) ;
    }
}

##</code><code>##

Win32::OLE(0.15) error 0x80020003: "Member not found" at bestshots.pl line 47
Win32::OLE(0.15): GetOleEnumObject() Not a Win32::OLE::Enum object at C:/Perl/si
te/lib/Win32/OLE/Lite.pm line 167.
Can't use string ("0") as a HASH ref while "strict refs" in use at bestshots.pl
line 47.