コマンドライン引数で相対パス指定

Perlスクリプトにコマンドライン引数でディレクトリ指定を渡す場合、シェルスクリプトと違って自動で相対パスを判断してくれません。

ググッたけど見つけられなかったので、とりあえず自前で暫定対処。

my $arg = $ARGV[0];
chomp (my $pwd = `pwd`);
$arg = "$pwd/$arg" unless $arg =~ m/^\//;

世の中にはきっと何かよい方法があるはずだとは思うのですが・・