use IO::Handle;

# open files, then do
 
$_ -> autoflush (1) for FILE1, FILE2, FILE3;