Your sub can be simplified to

sub outputlog {
  outputlog()
}
[download]

(once $switch is true). This is an infinite loop, indeed, but with no relation to buffering.