sub traversedir {
     my $givendir = $_[0];