perl md5でハッシュ化

http://tech.bayashi.jp/archives/entry/perl/2007/001974.html
上記サイトを参考にメモさせていただきました。

#!/usr/bin/perl
use strict;

# MD5モジュールをロード
use Digest::MD5;

# ぬちま~すwを設定
my $salt = 'SecuritySalt';

# ぬちま~すwと元データを連結
my $str = $salt . $ARGV[0];

# ハッシュを出力
print Digest::MD5->new->add("$str")->hexdigest . "\n";

exit;

あとは、ターミナルからでも実行してみると、変換後の値が確認できます。
/usr/bin/perl md5test.cgi password