sub current_dir { $File::find::dir }
sub current_file { $_ }