or download this
#set the initial values for the text boxes to the first contact's det
+ails
#cd32/ is the directory
$searchcontacts = "cd32/*.cd";
...
open(DAT, $allcontacts[$count]) || die("Could not open file!");
@allcontactdetails=<DAT>;
close(DAT);