>>434
それをやるなら、普通は
open my $fh,">foo.txt";
select $fh;
print "aaa";
だが。