. . . my $where = "..."; ## $where is the URL of the new destination print "Content-type: text/html\r\n\r\n"; print ''; print ''; print ''; print ''; print "";