open (DAT, ">file.txt") ;
print DAT $foo;
close DAT;