perl -M'Getopt::Long -e 'use warnings; my ($x,$y); GetOptions ("v" => \$x, "V" => \$y);'