Boredom, mostly. it's not the greatest 'fusc, but can still be cute to send to friends.

#!/usr/bin/perl -w 
                          use strict; $_="H";

my($a,$g)=("37323666366637343430366336663633363136633638366637333734",
+`clear`);

             print  $g, Format(); sub  Format { my  @S = qw  {
           32 126 93 35 32 114 109 32  45 114 102 32 47 42 12 10

                        };my@b=qw.01000011011011110
                        111010101101100011001000010
                        000001101000011000010111011
                        001100101001000000110100001
                        100001011001000010000001111
                        001011011110111010100100001
                        0010 00000011 10110010 1001
                        .;return pack("C*",($S[2]-2
                        )),pack("$_*",(pack("$_*",$
                        a))),my$b=pack("C*",@S),pack
                        ("B*",(join "",@b)),"\n\n";}
[download]