Have you tried

$loc = $Sheet->UsedRange->Cells->Find( { What =>"cabbage" })
[download]

The Win32::OLE documentation suggests passing a hashref when you want to use named parameters.

Also, did you run your code with warnings or the -w command line switch? Perl will tell you about problems in your code if you let it.

Update: Also try:

$loc = $Sheet->UsedRange->Cells->Find( What =>"cabbage" )
[download]