Change the name of the subroutine to redirect123 - I feel like I would just be avoiding the problem rather than fixing it.

And safe driving doesn't fix car accidents? Not creating two functions with the same name is indeed the proper fix.

It can be done by not giving them the same name, or it can be done by not creating the one you don't use.

That you are importing functions you don't even know you are importing is the real problem as far as I'm concerned.

My guess is that there is already a subroutine called "redirect" in one of the Perl modules that I am already using.

grep -w redirect `perldoc -l CGI`
[download]

Now, where does that warning message come from? A look at perldiag shows:

Subroutine %s redefined

(W redefine) You redefined a subroutine. To suppress this warning, say

   1. {
   2. no warnings 'redefine';
   3. eval "sub name { ... }";
   4. }
[download]

Update: a closer look at CGI.pm shows that :standard exports :cgi which exports the redirect sub. An option is to only export what you need. You could change this line to not export redirect:

use CGI qw/:standard/;
[download]

You could wrap your routine in no warnings 'redefine' (which is lexically scoped):

...
{ no warnings 'redefine';
sub redirect
{
    # code for redirect will go here
}
}

# CGI's redirect() can then still be used fully qualified:
# print CGI::redirect('http://somewhere.else/');
[download]

Alternatively, don't import ":standard" functions from CGI module (which is what imports a redirect function (among many others) into your namespace), and use its OO interface instead.

How about 4. Don't roll your own redirect and use CGI.pm

print redirect(-uri=>'http://somewhere.else/in/movie/land',
                                  -nph=>1,
                                  -status=>301);
[download]

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Apologies for this mess which is rooted in my careless misreading of the terminal when I initially ran the script.

Your script, as is (presumptively, minimized for posting ^{See para 3}), run from the CLI doesn't do what you say it does. In fact, it compiles and runs quite cheerfully, printing the 'sub redefined' message and 'Content-Type:text/html...this is a test' The sub is never called, so it can't produce the message you cite.

Were you to include just before or after the comment in the sub, an instruction that actually does something (for example, print "inside sub redir \n";, the problem you assert would manifest itself.

Please, test code before posting to make sure it comports well with your problem description. Yes, we advocate posting a minimal sample of your code, but NOTE that's modified by the qualifier "working." <=true but irrelevant

We've been promised that our crystal balls will be fixed by Tuesday, but we don't know which Tuesday of which year. On the other hand, from the excellent analyses in the replies above, maybe it's just mine that's on the fritz.

Update: I failed to see the "redefined" message between the CLI and the output produced by OP's lines 9 and 10. After reading chromatic's reply, I reran OP's script, and spotted the 'redefined' message. So I've now added acknowledgment of its appearance and have stricken my inaccurate/imprecise (eg, "wrong") statements above.
But, since the code compiles and executes (from a W32 CLI perl -T 890026.pl, isn't the message a warning (as outlined above by toolic) rather than a compiler error?

The sub is never called, so it can't produce the message you cite.

The "subroutine redefined" warning is a compile-time warning. Whether that code is reachable is irrelevant.

#!/usr/bin/perl -T

use SelfLoader;
use CGI qw/:standard/;
use CGI::Carp 'fatalsToBrowser';
use DBI;
use strict;
use warnings;

print "Content-Type:text/html\n\n";
print "this is a test\n";

__DATA__
sub redirect
{
    # code for redirect will go here
}

exit 1;
[download]

How does that solve the problem?

If you don't want the redirect that's in CGI.pm, just don't import it. change

use CGI qw/:standard/;
[download]

to

use CGI qw/:standard !redirect/;
[download]