今天碰巧用到，觉得挺有用的：

1) 用Perl获得当前目录的路径名：

use Cwd;
print getcwd;

2) 打印变量值到屏幕的同时，保存到一个变量里：

print $str = ‘foo bar’;

当然，换成文件句柄也是一样的。