package MyApp::Logger;

select STDOUT;
$|=1;

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

1;

##</code><code>##

#!/usr/bin/perl

use MyApp::Logger;

print "foo\nbar\n";