Help for this page
tryfirstchoice() or trysecondchoice() or trynextchoice or .... trylast +choice();
#!/use/bin/perl -lw ... tryfirstchoice trysecondchoice #