...
if (-e $path) {
    if (-l $path) {
	print "is a link";
    } elsif (-d _) {
	print "is a direcotry \n";
    } elsif (-f _) {
	print "Is a file";
    } else {
       print "Error";
    }
}