my @result = $object->cleanup;

if (@result) {
  print "Got some results back '@result'\n"
}
__END__
#
# You will always get this back if you do return '';
#
Got some results back ''

##</code><code>##

  return $_[0];
}
return;