ok( foo(), 10, 'foo() should return value of $bar' );

my $bar = 10;
sub foo { return $bar }