>>767
ほんとだー

package Hoge;
use strict;
my $var = 1;
sub f {
　print $var;
}

でいけました。ありがとうございます。
でも sub f の中から外のmy変数を参照できたのか。。。ちょっと不思議。