perl script.pl > file.txt

##</code><code>##

open OUT, '>', 'file.txt';
...
print OUT ...