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