open(TEXT, ">textfile") or die "$!";
.
.
.
print TEXT $some_text_line;
.
.
.
close(TEXT);