$dirname =~ tr(/)(\\);