PATH:
usr
/
share
/
doc
/
perl-Expect
/
examples
use strict; use warnings; while (my $row = <>) { chomp $row; print "Input: '$row' = "; my $res = eval $row; print "'$res' :Output\n"; }
[-] ssh.pl
[edit]
[-] calc.pl
[edit]
[-] expect_calc.pl
[edit]
[+]
kibitz
[+]
..