#!/usr/local/bin/perl
use Proc::Daemon;
Proc::Daemon::init;

open ( OUT, ">b.out" );
while ( 1 ) {
    print OUT `/bin/date`;
    sleep( 2 );
}