open OUT, ">", "Test" or die $!;
  print OUT $variable or die $!;
close OUT or die $!;