package MyApp::Logger;

select STDOUT;
$|=1;

unless (open STDOUT, '|-') {
  eval {
    while(<>) {
      print scalar(localtime), ' ', $_;
    }
  };
  exit(0);
}

1;