Assuming you don't mind returning 1/undef instead of 1/0 I'd prefer this:

sub fred { $_[0] eq 'ooyah' }
[download]

Or, if you want to keep your '0', how about:

sub fred { $_[0] eq 'ooyah' or 0 }
[download]

-Blake