use Capture::Tiny ':all'; use CGI qw(:standard); my $params = $cgi->Vars(); my $obj = new Object($params); $obj->buildState; my ($stdout,$stderr,@results) = capture { $obj->doAction(); }; buildHtmlStatusOutput($stderr);