use strict;
use warnings;
require DBI;

$|=1;

my $dbh=DBI->connect('dbi:Pg:host=localhost');
my $pub=`cat public.asc`;
my $pri=`cat private.asc`;


my $enc= $dbh->prepare("select armor(pgp_pub_encrypt(?,dearmor(?),'debug=1'))");
my $dec= $dbh->prepare("select pgp_pub_decrypt(dearmor(?),dearmor(?),'debug=1')");
my $i=1;


foreach my $ii (1..1e7) {
  #my $i=$ii;

  my $mes=scalar 'x'x$ii;
  $enc->execute($mes,$pub);
  my ($message)=$enc->fetchrow();

  $dec->execute($message,$pri);
  my ($message2)=$dec->fetchrow();
  die $ii unless $message2 eq $mes;
  warn "$ii\t".length($mes)."\t", time() if $ii%1000 ==0;
};