еще вопросик по perl

["Dmitry E. Oboukhov" <dimka@avanto.org>]

программка:

sub next_num
{
  our $num;
  $num++;
  return $num;
}

for ($i=0; $i<10; $i++)
{
  print &next_num, "\n";
}

выведет
1
2
3
4
5
6
7
8
9
10

итп

а как сделать тоже самое но чтобы $num не светилась на глобальном
уровне? есть ли вообще такая возможность в перле?