Automating GDB debugging session

Hi all,
I want to write a script in perl which will execute under gdb (is it possible in perl? or i will have to use python) to automate the code debugging. So can anyone please guide me by giving a small pseudo code or examlple..??
Thanks in advance.