Select Code to Download

use IO::Scalar;
my $capture;
tie(*CAPTURE, 'IO::Scalar', \$capture);
select (CAPTURE);

local *CAPTURE;
my $cmd = join " ", "perl", "script_name", @args);
open (CAPTURE,  "$cmd |") or die "Cannot run command $cmd: $!";

my $file = "foo.txt";