my @nocrypt = qw(Crypt::RSA); #too slow, but more secure 
#my @nocompress = qw(Compress::LZF); #just testing this feature 

$server = new Net::EasyTCP(
    host  =>  $host,
    mode  =>  'server',
    port  =>   $port,
    password => $portpassword, # if asymmetric encryption   
                               # use a port password   
    donotencryptwith => \@nocrypt,
#    donotencrypt => 1,