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