package foo; sub out {print "$test"}; 1;