my $sub <<SUB;
sub {
	print "I've been compiled once!  I'm anonymous!\n";
}
SUB

my $sub_ref = eval $sub;