#!perl -w

use strict;

my $dir      = shift or die "Usage: $0 <dir> \n";   #  provided dir to traverse

my $filelist = [];

# fwd declaration to prevent warning

sub recursedir($$);

# run recurse and print

recursedir ($dir, $filelist);

print $_, "\n" for(@$filelist);

sub recursedir($$) {

  my $dir  = shift @_;

  my $list = shift @_;

  if(opendir(DIR, "$dir")) {

    #  list dir

    for my $file(grep { !/^\./ } readdir DIR) {

        #  traverse subdirs

      }

      }

    }

    closedir DIR;

  }

  else {

    warn "Cannot open the directory '$dir' $!\n";

  }

}