my $string = q|=pod =cut &Internals::SvREADONLY(\undef,0); undef=sub{print$_[0]; undef;};|; eval $string; my $h = undef; $h->("Just another Perl hacker\n");