Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print "My \$result is now $result.\n";

1;

my $result = $obj->method($argument);
print "My <explicative deleted> argument still is: $argument. \n";
...
} else {
  print STDERR "Yeah!  It worked.";
}

#!/usr/bin/perl -w
use strict;
...
}

1;

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

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

if(){

} else {

}