#! /usr/bin/perl

use GnuPG qw(:algo);

my $gpg=new GnuPG();

$gpg->gen_key(name=>"dReKurCe";
              comment=>"Test Key";
              passphrase=>$secret;
              );