Re^2: What would you put on a Perl mug?

[softworkz]

Okay... this is offically my first feable attempt at obfu... I sure someone can make a far better obfu then this...

$a = ".";for ($i=0; $i<20;$i++){print "$a";
}print"\n|\t\t   |\n|use strict;\t    ......\n|\t\t   |\t  |\n|\t\t   
+|\t  |\n|\t\t   |\t  |\n";
print "|\t\t   |......\n|\t\t   |\t\n|\t\t   |\t\n|\t\t   |\t\n";for (
+$i=0; $i<20;$i++) {
print "$a";
}