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