use Capture::Tiny qw( capture_stdout );

open STDOUT, '>/dev/tty' or die $!;

my $output = capture_stdout { print "Hello world!\n"; };

print "<<<$output>>>\n";