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

    print make(123)->()
'
Use of uninitialized value in print at -e line 9.