open(TXT,">hi.txt") || die;
select(TXT);
print "hi\n";
close(TXT);