<% Dumper($status) %>

% $status->RetriveBuildStatus('ASA',\%Table); <%once> use strict; use Data::Dumper; use ASA::UIC_DBSTATUS; my %Table; my $status <%init> $status = ASA::UIC_DBSTATUS->new(); %Table = ();