Select Code to Download

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

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

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