#!/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"
[download]

The lesson is that, unlike people, only young Perls are not naive.¹