#perl v5.10.1

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

#testdata will be undefined

##</code><code>##

DB<2> $testdata = eval <DATA>;
DB<3> x $testdata
#outputs the expected data