#!/usr/contrib/bin/perl5

use IO::File;
use Date::Manip;

$LPDIR=$ENV{'LPDIR'};

$log_fh = new IO::File("$LPDIR/account.log",
                        O_WRONLY|O_APPEND|O_EXLOCK|O_CREAT);

if (defined $log_fh)
{
     $time = ParseDate("now");
     print $log_fh $time . " " . join(" ", @ARGV) . "\n";
     close($log_fh);
}