print FILE "How are you?\n";

##</code><code>##

open my $file, '>', 'files.txt';
select $file; # print to $file by default
doit();
close $file;
select STDOUT; # print to STDOUT again by default