perl -e 'print qq|Enter q or Q to quit|; ($list = <STDIN>);'