use URI::Split qw(uri_split uri_join);
use CGI qw(:all);

my $redirto = 'http://www.server.de/script3.cgi' ;
my $gt = param('goto') || url_param('goto');

my ($scheme, $auth, $path, $query, $frag) = uri_split($gt);
if (defined $scheme ) { # externer URI!?
   if ($scheme eq 'http') {
     # redirect zum nächsten Skript
     print redirect($redirto . "?url=" . $gt;
     # oder falls später als PATH_INFO auszulesen
     #print redirect("$redirto/$gt";

   }
} 
else { # interner URI
  # interne Umleitung
}