( our $path = $0 ) =~ s/\\[^\\]*$//;