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

##</code><code>##

 if ($server =~ m/txt/) {
        open(DAT, $server) or die "Could not open file!\n";
        @computers=<DAT>;
        close(DAT);
        foreach $computer(@computers) {
            if ($computer =~ /\n/) {
                   chomp($computer);
            }
        }

##</code><code>##

chomp @computers;