gpg --gen-random 1 16 | gpg --enarmor | sed -n 5p


##</code><code>##

J7Ld1bWb56ezv3GRF7RfBg==


##</code><code>##

----perl script--------------------------------------
#!/usr/bin/perl
$serialno = `gpg --gen-random 1 16 | gpg --enarmor | sed -n 5p`;
print $serialno;


##</code><code>##

----cgi script-----------------------------------------
 #!/usr/bin/perl -wT
   $serialno = `gpg --gen-random 1 16 | gpg --enarmor | sed -n 5p`;
    print "Content-type: text/html\n\n";
    chomp($serialno);
    print "$serialno";
    exit;