Help for this page

Select Code to Download


  1. or download this
    BEGIN{
    *CORE::GLOBAL::substr=sub($$$) { die };
}
print substr 'foo',2,3;