| Code Snippit |
|---|
sub Flush_Buffers_Quickly
{
my ($file) = @_;
if ($file) {
close (STDERR);
open (STDERR, ">$file") or &Log_File_Error ($file);
}
select (STDERR); $| = 1;
select (STDOUT); $| = 1;
} #Flush_Buffers_Quickly
|