Help for this page

Select Code to Download

Select or download this

use Term::ReadLine;

...

use Data::Dumper;
print Dumper $line1, $line2;