#!/usr/perlml $DOMAINS = "domains.txt"; open DOMAINS; @urls = ; close DOMAINS; %addresses = (); foreach $entry (@urls) { @temp = split /,/, $entry; $addresses{$temp[0]} = $temp[1]; } $url_handle = $ENV{QUERY_STRING}; #print @urls; print "Content-type: text/html\n"; print "Location: $addresses{$url_handle}\n\n";