my $result = $obj->method($argument);
print "My <explicative deleted> argument still is: $argument. \n";
if($result eq 'ERROR') {
  print STDERR qw|!@#$%^&*(*&^$#$, still broken.|;
} else {
  print STDERR "Yeah!  It worked.";
}