>>433
open my $fh,">foo.txt";
*STDOUT=$fh;
print "aaa";

これでいけました。どうもありがとう。