Select Code to Download

<input type=hidden name="price" value="42.95">

#!/usr/bin/perl -w
use strict;
...

my $base64_digest = md5_base64( @data );
print $base64_digest;