#!/usr/bin/perl -l

#line 2 "philosophy. fine"
BEGIN {

warn "your Perl is too naive" and exit
if intelligence->isa("UNIVERSAL")}

use less trucking; sub to'ship {package}

package intelligence; ship to WalMart;

die "you can't package intelligence"
unless intelligence->isa("UNIVERSAL");

print "now we can all be smart"

##</code><code>##

That said "The lesson is that, unlike people, <em>old</em> Perls are naive", before I improved the wording.