local $/; my %conf = eval <CONF>;

##</code><code>##

use IO::Handle;
CONF->untaint;

##</code><code>##

#!/usr/bin/perl -Tw

use strict;

use IO::Handle;
use Data::Dumper;

open(CONF,"< t41.conf")
  or die "couldn't open conf: $!\n";
CONF->untaint;
my %conf;
{
  local $/;
  undef $/;
  %conf = eval <CONF>;
}

print Dumper \%conf;