my sub for_inc {
            my ($coderef, $filename) = @_;
            return \$source
        };

        my $for_inc_ref = \&for_inc;