use Digest::Perl::MD5;

 my $keystring="Enter a string here";
   my @stack;

   push(@stack, $blahblahwhatever);

   my $digest=new Digest::Perl::MD5;
   $digest->add(@stack);
   my $serial=$digest->hexdigest();