[D]perl里怎么判断目录已经存在

[hanyuwei0]

我知道可以用if(-e $folder)这样判断，不过我的$folder = "~/Document/aaa";

$folder = "~/Document/aaa";
if (-e $folder)
{
printf "exist";
}
else
{
printf "not exist";
}

这样是不行的，只有写全路径$folder = "Users/user/Document/aaa";才可以。
我的问题该怎么解决呢，我不想写全路径
---------------------
Double行动：
原帖分数：30
加分：30

[I_NBFA]

用glob扩展下，
if(-e (glob("~"))[0])

[hanyuwei0]

这个方法不错，可以用

[ljhhh0123]

#!/usr/bin/perl

use Env;

$h = "$HOME/Document/aaa";

print "$h"; 

[hanyuwei0]

楼上的方法也不错，多谢各位

[fibbery]

#use strict;
#use warnings;

$folder = "~/Document/aaa";

if (-e `echo $folder`)
{
	printf "exist";
}
else
{
	printf "not exist";
}

[proorck6]

[liuweichuan]

-e 只是文件是否存在
-d 是用来判断是否为目录的
-f 判断是否为文本文件的

举个例子：

if ( -f $path ) { print "$path is a file" }

else ( -d $path ) {print "$path is a dir"}