In bash script, we know that there is a select function that can list all the files in current directory with number for selection. Once choose the number, can get the value behind.
select application in */; do test -n "$application" && break; echo ">>> Invalid Selection"; done
Is there any similar function in perl?
Thanks