...
$file = File->new('t/file7.test');

eval {
    # declare as local so default is restored on block exit
    local *CORE::GLOBAL::read = sub (*\$$;$) { return undef };

    $file->header();
};
...