Select Code to Download

# Define a global variable, the compatible way
use vars qw($foo);
...
# Define a "lexical" variable
my $foo;

undef $/;             # Enables whole file mode
...
  blah
}

{
   undef local $/;
...
      blah
   }
}