open (FILE, "c:/perl/directory.xml") or die "Can't read file 'directory.xml' ($!)\n";