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