$MyIPSec->{IPGrant} = \@IPList;
$secobj->SetInfo();