my $t = new Net::Telnet(
    Input_log => 'log.txt',
    binmode => 1,
    Prompt => '/cis-.+[>#]/'
);