$ perl -d p5dbglob.pl . . .

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

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

main::(p5dbglob.pl:8):  Main( @ARGV );
  DB<1> s
main::Main(p5dbglob.pl:11):         for my $dir ( @_ ){
  DB<1> s
main::Main(p5dbglob.pl:12):             chdir $dir or die $!;
  DB<1> s
main::Main(p5dbglob.pl:13):             Fudge( $dir, glob '*' );
  DB<1> s
File::Glob::csh_glob(C:/perl/5.14.1/lib/MSWin32-x86-multi-thread/File/Glob.pm:78):
78:         my $pat = shift;
  DB<1> r
list context return from File::Glob::csh_glob:
0  'foo.txt'
1  'dum1.txt'
2  'dum2.txt'
3  'out.txt'
4  'p5dbglob.pl'
main::Fudge(p5dbglob.pl:17):        my $dir = shift;
  DB<1> s
main::Fudge(p5dbglob.pl:18):        my $count = @_;
  DB<1> q