[print "XXXX$dir\n";]
[print "$dir\n";]