@path = split(/\\/, $0);
  pop(@path);
  $path = join('\\', @path);

##</code><code>##

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

##</code><code>##

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