1#!/usr/local/bin/perl 2# Add some zone to the open list 3use strict; 4use warnings; 5our (%in); 6 7require './bind8-lib.pl'; 8&ReadParse(); 9my @heiropen = &get_heiropen(); 10push(@heiropen, $in{'what'}); 11&save_heiropen(\@heiropen); 12&redirect("index.cgi#$in{'what'}"); 13 14