hsweet:

Run the program in debug mode, set a breakpoint before the call, and then step through it. Then you'll be able to find out which subroutine is executing and examine the data you want. It's pretty simple, really:

roboticus@Boink> # Execute script under debugger:
roboticus@Boink> perl -d genfiles.pl

Loading DB routines from perl5db.pl version 1.32
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

main::(genfiles.pl:5):    for (1 ... 50000) {
  DB<1> # Set breakpoint on line 7

  DB<2> b 7
  DB<3> # Execute (continue) until end or breakpoint

  DB<4> c
main::(genfiles.pl:7):        my $u = join('',('A'..'Z')[rand 26, rand
+ 26, rand 26]);
  DB<4>
[download]

As the debugger startup message says, use 'h' for help.

...roboticus

Time flies like an arrow. Fruit flies like a banana. Groucho Marx