my $self = shift; my $q = $self->query(); # The execute is called from a differnt module for securety reasons. and there is the actual fetch done. my $result = $self->execute(statement => 'data_ossd', ary2d => '1', handle => 'appframe'); print STDERR Dumper($result); my $output = $q->table({-border=>'1', -align=>'center'}); $output .= $q->Tr({-align=>'CENTER', -valign=>'TOP', -width=>'70%'}); $output .= $q->th({-style=>'font-size: 10px'},['Mso_id','Mso_name','Postcode','Housenumber','Appertment number','Who enterd data', 'Email send to','Date send','Update recieved','TT number','Status']); $output .= $q->Tr(map{$q->td($_)}@{$result}); return $output;