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 ) ;
    }
}