my @files = map untaint( $_ ), grep !/^\.\.?$/, readdir DIR;