use warnings; use strict; use Safe; use version; my $comp = Safe->new; # never using it! my $code = <<'EOT'; use version; qv('3.0.17'); EOT my $ret = eval($code); print "$ret"; # should stringify the version