$ perl -wE'my $x = eval "my \$foo = 23; use CGI"; say $x'
23