perl获取当前目录

my $dir=$ENV{'PWD'};