$object->stty(qw(cols 200)); 

##</code><code>##

$object->slave->stty(qw(cols 200));