/usr/share/doc/libio-captureoutput-perl/examples/capture.pl is in libio-captureoutput-perl 1.1103-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | #!/usr/bin/perl
use strict;
use warnings;
use IO::CaptureOutput qw/capture/;
my ($stdout, $stderr);
capture sub {
print "This prints to STDOUT\n";
print STDERR "This prints to STDERR\n";
} => \$stdout, \$stderr;
print "STDOUT was:\n$stdout\n";
print "STDERR was:\n$stderr\n";
|