Perl/Python script to fetch the LB, VIP and pool details of a server

I have a database where all my LTMs information are stored. I am trying to get a perl/ python script.   The use case is: running the script with a specific server IP, I am expecting an output whic...