local (*FOO);
open (FOO, $foo_file) || die "Could not open $foo_file\n";
DoStuffOnHandle(\*FOO);
close (FOO);