Select Code to Download

#!/usr/bin/perl

...

my @output = $owner->cmd ( String => "date", Prompt => $host_prompt );
print "Output is @output\n";

package api::Telnet;

...
}

1;

[root@n3fips-346 ~]# date
Wed Jul  3 14:33:03 IST 2019

< 0x00000: 5b 72 6f 6f  74 40 6e 33  66 69 70 73  2d 33 34 36  [root@n
+3fips-346
< 0x00010: 20 7e 5d 23  20                                      ~]# 
...
< 0x00000: 5b 72 6f 6f  74 40 6e 33  66 69 70 73  2d 33 34 36  [root@n
+3fips-346
< 0x00010: 20 7e 5d 23  20                                      ~]#

[root@hyd1658 ~]# Wed Jul  3 14:39:47 IST 2019

< 0x00000: 5b 72 6f 6f  74 40 68 79  64 31 36 35  38 20 7e 5d  [root@h
+yd1658 ~]
< 0x00010: 23 20                                               # 
...

< 0x00000: 5b 72 6f 6f  74 40 68 79  64 31 36 35  38 20 7e 5d  [root@h
+yd1658 ~]
< 0x00010: 23 20                                               #