#perl v5.10.1

my $testdata;
open(DATA, "<filename") or die $!;
{
    local $/;
    $DB::single=1;
    $testdata = eval <DATA>;
}
close DATA;

#testdata will be undefined