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

##</code><code>##

my $foo;
BEGIN { $foo = 'bar'; }