Select Code to Download

if( -d $filename )
        {
...
        {
            push( @global_files, $filename );
        }

# Recursively process directories
sub recurse_dir
...
        return @results;
}

main::go(docopy.pl:61):                       push( @global_files, rec
+urse_dir( $filename ) );
  DB<4> n
File::Glob::csh_glob(/usr/local/lib/perl5/5.6.1/sun4-solaris/File/Glob
+.pm:175):
175:        if (wantarray) {
99 levels deep in subroutine calls!