sub LOGGIN
{
....
 open(LOG, ">>$log") 
      or croak "Unable to append to $log: $!";
  print LOG "[$localtime] $log : @data \n";
 close LOG or die "Cannot close log file:: $log : $!\n";

....
} 

##</code><code>##

#test code
my $i=0;		
for (my $count=1; $count<11; $count++)
{
$i++;

app_log($log,"Loading transac from \$file - $1");

print "cool<br>";
}

##</code><code>##

[Fri Feb 14 09:28:30 2005] test_of_log.txt : Loading transac  
[Fri Feb 14 09:28:30 2005] test_of_log.txt : Loading transac 
[Fri Feb 14 09:28:30 2005] test_of_log.txt : Loading transac 
[Fri Feb 14 09:28:30 2005] test_of_log.txt : Loading transac
[Fri Feb 14 09:28:30 2005] test_of_log.txt : Loading transac
[Fri Feb 14 09:28:30 2005] test_of_log.txt : Loading transac  
[Fri Feb 14 09:28:30 2005] test_of_log.txt : Loading transac 
[Fri Feb 14 09:28:30 2005] test_of_log.txt : Loading transac
[Fri Feb 14 09:28:30 2005] test_of_log.txt : Loading transac
[Fri Feb 14 09:28:30 2005] test_of_log.txt : Loading transac
....