Restricting access using group id/cgi/perl