$ perl -MGetopt::Std -E'
   getopt("fdrv",\%opts);
   say 1+$#ARGV;
   say "@ARGV";
' -- -f a b c d
3
b c d