#!/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);
print "My argument still is: $argument. \n";
print "My \$result is now $result.\n";

1;

##</code><code>##

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.";
}

##</code><code>##

#!/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;

##</code><code>##

if($test) { $obj->method(); }

##</code><code>##

if($test) {
  print LOG "The test was successful, now invoking \$obj->method().";
  $obj->method();

} else {
  print LOG "The test was unsuccessful, so we won't invoke the \$obj->method().";
}

##</code><code>##

if(){

} else {

}