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