#!/usr/bin/perl -w
use strict;
use Carp qw/FatalsToBrowser/;

        . . .

my $obj = MyPackage->new();
my $argument = "Here is a scalar.";

print $argument,"\n";
my $result = $obj->method($argument);
if($verbosity eq "DEBUG"){
  print LOG "My argument still is: $argument. \n";
  print LOG "My \$result is now $result.\n";
}

if($result eq 'ERROR') {
  print LOG qw|The \$obj->method() is returning an error, it is still broken.|;
} else {
  print STDERR "The \$obj->method() ran without errors.";
}

1;