if (-d $file && ! -l $file)

##</code><code>##

die "Syntax: $0 <dir>" unless @ARGV == 1 &&
	(-d $ARGV[0] && ! -l $ARGV[0]);