perl獲取當前目錄

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