require "t.pl";

foo(4);
print $fred;