Perl script for converting a string to md5_base64

This script will convert a string to md5_base64 digest. You must install libmd5-perl for running this script. This will be useful for storing passwords in md5_base64 digests

#!/usr/bin/perl -w

use warnings;
use Digest::MD5 'md5_base64';

print "Enter your Password:";
my $pass = ;
chomp $pass;
print "Digest md5_base64 :\t", md5_base64($pass), "\n";