open(OUTPUT, "> test.txt")
  or die "test.txt: $!";
for(<STDIN>) {
  print OUTPUT $_;
}
close(OUTPUT);