my $d;
my $s = '$d=10;print $d';
eval $s;