SEGV

SEGV

perl -e 'use overload q{""}=>sub{"$_[0]"};$a=bless{},main;"$a"'
perl -MCarp -e 'BEGIN{unshift @INC, sub { Carp::confess(@_) } } use CGI'
perl -E 'BEGIN{unshift @INC, sub { die require CGI; } } require CGI'
perl -Ilib -E 'BEGIN { unshift @INC, sub { CORE::require($_[1]) } }; require Storable'zsh
echo "var s = 'a';while(s.length<536870912){s+=s;print(s.length);};s=s.replace(/a/,'b');while(1);" | ./shell