----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;