while ( 1 )
{
open(FIFO, " > $ENV{HOME}/.plan")
or die "Couldn't open $ENV{HOME}/.plan for writing:$!\n";
print FIFO "The current time is", scalar(localtime), "\n";
close FIFO;
sleep 1;
}