> { > my $num; > > DEO> sub next_num > DEO> { > DEO> $num++; > DEO> return $num; > DEO> } > } спасибо! в голову почему-то сие не пришло.. а все sub'ы видно на глобальном уровне? интересно, а можно написать my sub бла-бла? ;)