The way to fix that would be to change the test to

if (-d $file && ! -l $file)
[download]

Also possibly change the syntax check to:

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

--ZZamboni