sub With {
  eval "use @_";
}

With 'strict';
$x = 10;