use IO::Handle;
print 1; # doesn't print, puts 1 in the buffer
STDOUT->autoflush(1)
print 1; # prints 1 immediately (and the previously buffered 1)
print "\n2\n"; # \n forces a flush