my $ssh = new Net::Telnet (
        -fhopen          => $pty,
        -prompt          => $args{prompt},
        -telnetmode      => 0,
        -cmd_remove_mode => 1,
        -timeout         => SSH_TIMEOUT,
        -output_record_separator => "\r",
        #-errmode         => sub { print "Telnet FAIL\n"; }
    );

Output of script execution
[root@hyd1658 attribute_template]# perl test_centos.pl 
output is Thu Jul  4 11:18:18 IST 2019
 [root@hyd1658 ~]