Select Code to Download

use constant {
    SEC   => 0,
...
    YDAY  => 7,
    ISDST => 8,
};

use constant Books_I_Own => 
{
...
    "Attack of the Deranged Mutant Killer Monster Snow Goons" => 1,
    "Unix Power Tools" => 1,
}

  DB<2> x Books_I_Own
0  HASH(0x1c831b8)
   'Attack of the Deranged Mutant Killer Monster Snow Goons' => 1
   'The Wit and Wisdom of Mark Twain' => 1
   'Unix Power Tools' => 1