{ local *STDOUT; my $buf; open STDOUT, '>', \$buf; system("some_command","with","args"); $logger->write($buf); }