Select Code to Download

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

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

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