Select Code to Download

use strict; 
use warnings;
...
print($poisoned, "\n");  # 1
$poisoned->(0);
print($poisoned, "\n");  # 0

package AutoExecute;

...
}

1;

use strict; 
use warnings;
...
print($char->poisoned, "\n");  # 1
$char->poisoned(0);
print($char->poisoned, "\n");  # 0