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