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

##</code><code>##

  if ( $dups && $^W ) {
        foreach ( split(/\n+/, $dups) ) {
            warn($_."\n");