use Getopt::Std;
my %args;
getopts ('V:', \%args);
print $args{'V'};