325$ perl -MGetopt::Std -E'getopt(\%opts); say "@ARGV";' -- -f a -d b -r -v
a -d b -r -v

326$ perl -MGetopt::Std -E'getopt("fdrv",\%opts); say "@ARGV";' -- -f a -d b >

327$