$Datei = 'E:\Projekte\test\GUI\Loeschen';

print "\n-d = "; 
if(-d $Datei) {  print 'DIR'; } else  {print 'FILE';   }

print "\n-e = "; 
if(-e $Datei) {  print 'TRUE'; } else  {print 'FALSE';   } 

print "\n-f = "; 
if(-f $Datei) {  print 'FILE'; } else  {print 'DIR';   }