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