(my $basename = $name =~ s/.\///;