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