Select Code to Download

package MyConfigReader;

...
  close FILE;
  return;
}

use MyConfigReader;

$/ = "not gonna happen";
MyConfigReader::readConfig("whatever.dat");

sub readConfig {
  my ($file,$var) = @_;
...
  $/ = "\n";
  # rest of function
}