Select Code to Download

#!/usr/bin/perl -w
...
        }
                        
}

    if (grep { /^PPS/ } @objects) 
                    {
...
                }
                else
                    {

print $fp "object-group network $object \n";