Help for this page
#!/usr/bin/perl ... while ( (my $cmd = $term->readline($prompt)) ne 'quit') { print "cmd: '$cmd'\n"; }