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>