well, nothing to stop you returning a value rather than manipulating a global.

my $response = doSomething();

sub doSomething {
   return 0;
}
[download]

updated I was being terribly inefficient there! Took out the code that created a lexical variable within the sub.

will do it, but remember also that Perl returns the last computed value form a sub as well. So:

my $response = doSomething();

sub doSomething {
   my $response = 0;
}
[download]

works just as well.

My advice would be to explicitly return something from the sub rather than manipulating a variable which is outside the sub.

jdtoronto