my @lines =`. foo; env`;

foreach my $line (@lines)
{
   print "[DEBUG] $line <br>\n";
}