my $old = select OUTPUTLOG;
   $- = 0;
   select $old;