sub foo {
   my $dir = shift;
   chdir $dir;

   local *CURRENT_DIR;
   # Everything else follows
}

##</code><code>##

opendir FOO, "$dir" or die "Couldn't open $dir: $!";
@contents = readdir FOO;
closedir FOO;

##</code><code>##

@contents = grep !/^\.\.?$/, readdir FOO;

##</code><code>##

sub recurse_me {
  my $dir = shift;
  opendir FOO, "$dir" or die "Couldn't open $dir: $!;
  while( readdir FOO ) {
    if ( -d $_ ) {
      push @dirs, $_;
    }
    else {
      # do something interesting
    }
  }
  closedir FOO;

  recurse_me( $_ ) for ( sort @dirs );
}