open OUT, ">", "Test";
  print OUT $variable;
close OUT;