use Crypt::Simple;
print MYSOCKET encrypt(join(":",map {"$_=$vals{$_}"} keys %vals));