or download this
(gdb) run -e 'sub foo { caller(0) }; *bar = *foo; my @l=bar()'
...
...
xivu_p1 = 0x0}, xmg_magic = 0x806f244, xmg_stash = 0x0, xgv_gp = 0
+x80540b4,
xgv_name = 0x806f264 "bar", xgv_namelen = 3, xgv_stash = 0x804cb4c,
xgv_flags = 10 '\n'}