sub traversedir {
     my $givendir = $_[0];
##</code><code>##

print "traversedir $givendir\n";