use Data::Dumper;
print Dumper(\@liblog);

##</code><code>##

use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
print header;

##</code><code>##

for my $item (@log) {
    $item->{UID} = GetItemFromDB('RealName','UID',$item->{'UID'},'User')
    $item->{ActionID} = GetItemFromDB('ActionName','ActionID',$item->{'ActionID'},'Action');
}