package Foo;

sub returnANumber {
    return 66; 
}

package FooUser;

use Foo;

if (Foo::returnANumber() < 82) {
  # do something
} else {
  # do something entirely dependent upon returnANumber being an integer > 0 && <= 100...
}


##</code><code>##

#!/usr/bin/perl -w
use strict;
use Getopt::Long;

my ($aa, $bb, $diagnostic) = (undef, undef, 0);

if (@ARGV){
    GetOptions('aa=s'=>\$aa,
	       'bb=s'=>\$bb,
	       'diagnostic'=>\$diagnostic);
}

if ($diagnostic){
    my $test = '';
    while(<DATA>){
	$test .= $_;
    }
    eval($test);
    die 'Ran tests. Done.';
}


1;


__DATA__

use Test::More qq~no_plan~;

ok(1==1,'basic');

1;