...

/usr/share/doc/perl-Expect/examples/expect_calc.pl