@elements = split("/" , substr($File::Find::name, length($ARGV[0])));