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