/usr/share/doc/perl-Expect/tutorial/5.A.top