my $namespace = $outlook->GetNameSpace("MAPI");
my $folder = $namespace->GetDefaultFolder(olFolderInbox);

for ( my $i = 1; $i <= $folder->Items->Count; $i++ ) {

    for ( my $j = 1; $j <= $folder->Items($i)->Attachments->Count; $j++ ) {

        print "Saving " . $folder->Items($i)->Attachments($j)->FileName . " from \"" . $folder->Items($i)->Subject . "\"\n";

        $folder->Items($i)->Attachments($j)->SaveAsFile( "C:\\Download\\" . $folder->Items($i)->Attachments($j)->FileName );

    }

}