$old_handle = select (STDOUT);
$| = 1;   # perform flush after each write to STDOUT
select ($old_handle); # restore previously selected handle

##</code><code>##


     $| = 1;

     print "some stuff\n";
     print "some more stuff\n";

     $| = 0;