perlで共通定数を使う方法

こんな感じかな。

共通定数定義モジュール Constant.pm

#!/usr/bin/perl

package Constant;
use strict;
# Exporterを継承
use base qw/Exporter/;
# グローバル変数の使用を宣言
use vars qw /@EXPORT_OK/;
# @EXPORT_OKは要求に応じてエクスポートするシンボルを指定
# @EXPORTに指定すると要求はいらない
@EXPORT_OK = qw/HOGEHOGE URL_NEXT_NODE/;

#定数
use constant {
	HOGEHOGE => 10,
	PIYOPIYO => 'hoge',
};

1;

使う側

use strict;
# HOGEHOGEの使用を要求
use Constant qw/HOGEHOGE/;

print HOGEHOGE;