Help for this page
{ package OPTS; ... our %opts; getopts('fs', \%opts); }
our %opts; *opts = \%OPTS::opts; if ($OPTS::opts{f}) { #do stuff }