#### #!/usr/bin/perl -w use strict; use Digest::MD5 qw ( md5_base64 ); my $rand = 'yed*73=1/+#@%d'; my $price = '40.95'; my @data = ($rand, $price); my $base64_digest = md5_base64( @data ); print $base64_digest;