Hello,
Can we use switch statement in perl with getopts to
operate user options in more effective manner?
Here is one example in shell:

while getopts "RWI" option
do 
    case "$option" in
        i) Read_only=",R";;
                *) usage;;
    esac
done
[download]

can we use getopts along with switch statement in similar way?