use CGI qw(:cgi);

my $url = $_[0];
my $q = CGI->new();

  print $q->redirect(
                   -url    => $url
                  );

# becomes

my $q = CGI->new();

  print $q->redirect(
                   -url    => $_[0]                  );