# Initialization:
if (accept $me, $spouse) {
   bind $me, $spouse;
   bind $spouse, $me;
   bless $spouse;
   bless $me;
}
# Happy marriage!

# to talk to him/her
print $spouse crypt($message);
# use in conjunction with the new uncrypt function
# to understand what he/she says:
$message = uncrypt(<$spouse>);

die $error;
# results in
# Oh no! So sorry, dear! I completely messed up line 15
# in module yourfile.pl.
# It's all my fault: $error

@cupboard = sort @clothes;
# automatically remove dirty underwear and put them
# in @laundry