Select Code to Download

use strict;
use warnings;
...
In eval STRING BEGIN: $VAR1 = undef;
in eval STRING: $VAR1 = '1';
in eval BLOCK: $VAR1 = '1';