Select Code to Download

my $thing = Win32::AdminMisc::RenameUser($server, ...

 if ($server =~ m/txt/) {
        open(DAT, $server) or die "Could not open file!\n";
...
                   chomp($computer);
            }
        }

chomp @computers;