From perldoc -f print or print: Note that if you're storing FILEHANDLES in an array or other expression, you will have to use a block returning its value instead.

Following should work:
print {$fred->{outfile}} "This is another test\n";

artist