PROMPT$ perl x.pl -?
$opts = {
          '?' => 1
        };
PROMPT$