sub foo_plus_one($) { return $_[0]+1 }

##</code><code>##

     BEGIN { require_ok("('foo.pl')") };

##</code><code>##

     my $foo = 4;
     is( foo_plus_one($foo), '5', 'method foo_plus_one()' );