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