my( @dirs ) = split /\//, $filepath;