title: How to set size of perl Net::Telnet window to print lines more than 80 characters long
body: <p>The output of this script is wrapped, which I don’t want.</p>
  
  <pre><code>use strict;
  use Net::Telnet;
  system("mode 500,6000");
  print "passwd: ";
  my $passwd=&lt;&gt;;
  chomp($passwd);
  my $telnet = Net::Telnet-&gt;new(Host=&gt;'linux63.blahblah.edu',Prompt=&gt;'/l+inux63&gt; $/');
  $telnet-&gt;waitfor('/login/');
  $telnet-&gt;print("myusername");
  $telnet-&gt;waitfor('/Password/');
  $telnet-&gt;print("$passwd\n");
  $telnet-&gt;waitfor('/linux63/');
  my @lines = $telnet-&gt;cmd("somecommand");
  #etc
  $telnet-&gt;print("logout\n");
  </code></pre>
  
  <p>This script's output is printed as:</p>
  
  <pre class="lang-none prettyprint-override"><code>This is the output of some command, has more than 80 characters in this line whic
  
  h should not be broken
  </code></pre>
  
  <p>I want it like below, any help?</p>
  
  <pre class="lang-none prettyprint-override"><code>This is the output of some command, has more than 80 characters in this line which should not be broken
  </code></pre>
  
  <p>Below <code>mode</code> command used in script didn't help.</p>
  
  <pre><code>system("mode 500,6000");
  </code></pre>