Select Code to Download

Select or download this

use TestRobot;

...
#print "\n***\n";

$tr->close;

Select or download this

sub exec {
  my ( $self, $cmd )  = @_;
...
    return $r;
  }
}

Select or download this

[00mtotal 24
drwxrwxr-x  2 testrobot testrobot 4096 Oct 11 12:33 [00;34mbin[00m
...
***
1b5b30306d746f74616c2032340a64727778727778722d782020322074657374726f62
+6f742074657374726f626f742034303936204f63742031312031323a3333201b5b303
+03b33346d62696e1b5b30306d0a64727778727778722d782020332074657374726f62
+6f742074657374726f626f742034303936204f63742031312031323a3333201b5b303
+03b33346d74657374696e671b5b30306d0a64727778727778722d7820203320746573
+74726f626f742074657374726f626f742034303936204f63742031312031313a35332
+01b5b30303b33346d776f726b1b5b30306d0a1b5b6d1b5d303b74657374726f626f74
+4073766e73657069613a7e07
***