sub recurse
{
  my $d = shift;
  opendir D,$d; # who needs error checking anyways
  while(<D>)
  {
    if( -d $_ ){ recurse($_);
    else{ #regular file
    }
  }
}