Yes this could also go in the poetry section - but then it has to complete with the more traditional Twelve Days of Christmas... and yes I probably could obfu a bit more (if you run is without a parameter it uses Christmas, if you give it an argument e.g. "CHANNUKAH" it will use that)

#!perl
# AN ELECTRONIC HOLIDAY CARD TO ALL
#
# Lyrics:    Evan Leibovitch
# Code:        Beverly Erlebacher
# Written:    December 1989
# Perled:    Dingus December 2002
#
# This code is in the public domain.

                     my
                    $i=0;
                   my $mm;
              my $default_hol= 
                  (@ARGV ? 
           uc($ARGV[0]) :"CHRISTMAS");
                my @cardinal= 
        ("Adi c","Tve","Tjgaa","Felg", 
     "Ffua","Sfw","Sauad","Efpjb","Nfda",
"Tad","Ekauad","Tvakua");my @ordinal=("sfghb", 
                  "haredi",
              "bjfgi","selgbj",
          "sfsbj","hfwbj","hauadbj",
     "afpjbj","dfdbj","badbj","akauadbj",
                 "bvaksbj",
              "bjfgbaadbj");my
         @item=("nlgdb-elb V.D.T.",
      "sclkbm bctah;","jacih rgchjai;",
  "nci nkerxh;","rega iloth;","nci redbgekkagh;",
"nkevd tcgbfbfedh;","pabbmh imfdp;","skettfah sgmfdp;",
             "tegbh c-ycoofdp;",
    "rjfth c-hoexfdp;","necgih c-nkevfdp;");
                    $mm= 
              'AN ELECTRONIC '.
         $default_hol.' CARD TO ALL'.
    "\n\nLmgfrh: Eucd Lafneufbrj\nCeia:".
  "Bauagkm Egkancrjag\nPagkai nm Dfdplh\n".
"Daifrcbai be Dcua Mched, Cjgfh Sfanadocdd,".
                  " cdi ".
               "cdmeda vje'h".
          " kasb\nbjafg reotlbagh ".
         "ckeda ylhb kedp adelpj seg".
      " bjao be haks-iahbglrb:\n(Sldp ".
    "be bja blda es heoabjfdp eg ebjag...)".
                 "\n\n\n".
            "Od bja $ordinal[0]".
          " icm I kasb fb, om Udfw ".
      "pcua be oa:\n";$mm.="\tA $item[0]\n";
                   for(
                $i=1;$i<12;
              $i++ ) { $mm.=
          "\nOd bja $ordinal[$i]".
        " icm I kasb fb, om Udfw ".
     "pcua be oa:\n"; $mm.="\t$cardinal[$_]".
   " $item[$_]\n" for(reverse(0..$i));} $mm.= 
                   "\n".
           "Od bja $ordinal[$i] ic".
            "m I hbcgbai cictbfdp".
             "\x20om Nfdbadie se".
              "g bja VME nlh.\n";
               eval'$mm=~y/a-y'.
                '/etanoirsdhl'.
                 'uybmg%cfpv'.
                  'wxkj/;pr'.
                   'int$mm';
[download]

Update Better Obfu

Dingus

---

Enter any 47-digit prime number to continue.