Select Code to Download

my $old_stdout;
my( $fh, $fn );
...
    return <$fh>;
  }
}

redir_stdout();
stupid_c_function();
die undir_stdout();

  open my $old_out, ">&STDOUT" or die $!; 
  open STDOUT, "> sc_out" or die $!; 
  send_command('i', "@_", 0 );
  #close STDOUT;