sub BEGIN {
  { eval 'use strict' }
}
$not_declared = 5;
print $not_declared, "\n";