my @nocrypt = qw(Crypt::RSA); #too slow, but more secure 

my $server = new Net::EasyTCP(
    host  =>  "$host",
    mode  =>  "server",
    port  =>   "$port",
#    donotencrypt => 1, 
    donotencryptwith => \@nocrypt,
    password => "$portpassword",
    )
       || die "ERROR CREATING SERVER: $@\n";