Try this or something similar...

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

Hope this helps,
Gerard