my $data1 = $telnet->buffer;