Select Code to Download

open my $ps, '-|', 'ps -eo pid,comm,args' or
  die "Can't run 'ps': $!\n";

my $output = do {
    open my $ps, '-|', 'ps -eo pid,comm,args' or
...
    local $/;
    <$ps>;
};