use warnings;
use strict;
my $return=&call();
print "Return value :$return";

sub innercall($)
{
	print "I am called\n";
	return 'gzip';
}
sub call()
{
	return +(innercall('test')||'') =~ /gzip/;
}

##</code><code>##

return +(innercall('test')||'') =~ /gzip/;

##</code><code>##

return (innercall('test')||'') =~ /gzip/;

##</code><code>##

return +($r->header_in('Accept-Encoding')||'') =~ /gzip/;