use strict;
use Getopt::Std;

our $opt_v;
# print join(':',@ARGV), "\n";
my $ret = getopts('v');
die "broken usage\n" unless $ret;

print "V = ", $opt_v,$/ if defined $opt_v;
__END__
V = 1