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