GetOptions(
           'request|r=s' =>\$Request,
           'man|m'     =>\$Manual,
           'help|h|?'  =>\$Help
          );

if ($Request =~ /^list$/i)
{
   # whatever
}
elsif ($Request =~ /^view$/i)
{
   # whatever
}
# and so  on