@x=1; print > ENV["CASEDIR"]."/foo.dat"
