Select Code to Download

my %file = (
    in   => 'switches.txt',
    );
...
    }
print ("  Specified target names all valid.\n");

use Getopt::Long;
GetOptions( 'infile|i=s'  => \$opt_infile, );
if (defined $opt_infile) {
...
    }
print ("  Specified target names all valid.\n");