Select Code to Download

use IPC::Open3 qw( open3 );

...
my $xs = <COUT>;
print "the output is :".$xs;
close COUT;