关于eval的使用,该怎么处理

#!/usr/bin/perl -w
use strict;
use diagnostics;

#my $dir="/tmp";
my $stm="my \$dir=\"temp\";"; #这行是想执行my $dir="temp"
eval $stm;
$stm="print \$dir ;"; #问题1：但是这行为什么没有把变量$dir的值temp输出来呢？
eval $stm;