#!/usr/bin/perl -w
package DB;our $sub='main::er';sub BEGIN{$^P=1 unless$sub;
$^P or $_="Not just another perl hack"}sub sub(hack){print
$sub =~ /([^:]+)$/, $", or &$sub} *hacker = \⊂ package
main;sub er {print ",\n"}sub just {for(split' '=>`perldoc`
){print $1 if /(\w{4})\d\w/;}}sub hack {print "hacker"}sub
another { seek DATA, 0, 0;print +(/(\w{6})\W/)?$1:'' while
<DATA>;DB::hacker();}sub perl { print }$_ and print "$_\n"
;foreach (qw{just another perl hack}) {$_->();}print "\n";