my ($basename, $dirname) = fileparse($_);