use File::Spec::Functions qw/catdir/; warn catdir('hoge','page');で、んな感じに宜しくやってくれます。他のメソッドも便利 hoge/page

こんなんあったんだ。 よろしくは無いけどね。 no warnings 'redefine'; CPAN