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