use Cwd;
my ($bottomdir) = cwd() =~ m|([^/]*)$|;