# Capture any STDERR output my $stderr = ''; local *STDERR; open STDERR, '>', \$stderr;