Strange, but:

• Your use statements and global (to the component) variable declarations really should go inside a <%once> block.
• Likewise setting $status should be done in an <%init> block.
• It'd be more Masonic to use <% Dumper( $status ) %> rather than printing.
• A better way to wrap components in a header and footer is to use the autohandler mechanism.

<pre>
<% Dumper($status) %>
</pre>
% $status->RetriveBuildStatus('ASA',\%Table);
<%once>
use strict;
use Data::Dumper;
use ASA::UIC_DBSTATUS;

my %Table;
my $status
</%once>
<%init>
$status = ASA::UIC_DBSTATUS->new();
%Table = ();
</%init>
[download]