package Sample2; use Sample1 qw(HOGE); sub hoge { return HOGE; } 1;