redirect über ID script

[andreasf]

wer kenn denn nicht solche scripts bei den man in einer datei paar links gespeichert hat und dann per script diese daten abrufen will... bei mir klappts nur nicht so richtig:

#!/usr/bin/perl
use CGI;
use CGI::Carp qw(fatalsToBrowser);
my $query = new CGI;
my $ID = $query->param("ID");
open (REDIRURL, "<redirconf.dat") || die "datei nicht gefunden ";
@redir = split /::/, <REDIRURL>;
close(REDIRURL);
if ("$ID" eq "$redir[0]") {
print "Location: $redir[1]\n\n";
}
exit;

und zwar will ich über einen link http://www.domain.de/cgi-bin/redir.cgi?ID=1 dann den zugehörigen link für die nr. 1 haben.
aber ich weis nicht wie ich die zeilen einzeln ansprechen kann z.b. mit ID nr. 2
oder kann man sich irgendwo so einscript runterladen so zum vergeleich-lernnen-testen?
danke

• andreas f. -