Select Code to Download

$ dir /b
shabba.pl

...
2012/10/29 03:49:10 shabba.pl 87> (Bar.Mars) YAM NEWLINE
Mars mjam

#!/usr/bin/perl --
use Path::Class;
use constant THISFILE => file( __FILE__ )->absolute->stringify;
...
    use Log::Log4perl qw(:easy);
    sub eat { INFO("Mars mjam");INFO("YAM NEWLINE\nMars mjam"); }
}