<& header.html, node=>2 &> %use strict; %use Data::Dumper; %use ASA::UIC_DBSTATUS; %my %Table; %my $status=new ASA::UIC_DBSTATUS(); %print Dumper($status); %$status->RetriveBuildStatus('ASA',\%Table); <& footer.html &>