Select Code to Download

# Initialization:
if (accept $me, $spouse) {
...
@cupboard = sort @clothes;
# automatically remove dirty underwear and put them
# in @laundry

"Honey, can you bring the trash outside?" (Y)es/(N)o
"Can you _please_ clean your desk?" (Y)es/(N)o

END {
   print "Byebye, sweetheart!\n";   # en-US locale
   print "Hasta la vista, baby!\n"; # en-ARNI locale
}

study $scalar;
# aborts with error message: "Cannot study, too much distraction!"
...
warn $message;
# overridden by the system; used to notify you of 
# upcoming birthday, wedding anniversary etc.