$ perl -wle'
    sub make {
        my ($x) = @_;
        return sub {
            $x if 0;      # <--- added
            eval q{$x};
        };
    }

    print make(123)->()
'
123