У меня есть набор подпрограмм, которые выглядят так: sub foo_1($) { my $name = shift; my $f; run_something(); open($f, $name) or die ("Couldn't open $name"); while (<$f>) { //Something for foo_1() } close($f);...