Select Code to Download

#!/usr/bin/perl

...
my $output = $ssh->capture({stdin_data => 
        "term length 0\nterm width 512\nsh ver\nsh run\nexit\n"});
print $output;

Pseudo-terminal will not be allocated because stdin is not a terminal.
channel 4: open failed: resource shortage: