Select Code to Download

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

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