# Test::More style used....
use Test::More tests => 1;
require "foo.pl";
is(foo(),"all right","Foo() executed normally")