Perl illustrated guts