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