"i dont know what it is now", eh maybe i have a thought

http://superuser.com/questions/823959/how-to-view-all-the-symbolic-links-junction-points-hard-links-in-a-folder-using gave me an idea. untested ...

my $isjunction=0; 
my $filedos='"'.$file.'"';
$filedos=~s{/}{\\}g; 
my $cmd='dir /al  /b '.$filedos; 
my $test1=`$cmd`;
if ($test1=~m/\<JUNCTION\>/) {$isjunction=1;}
[download]

edit:added dquotes to filedos