open(ARQ,">$dir$foo_file");
binmode ARQ;
print ARQ $foo_file;
close(ARQ);