open FILE, "<$filecard";
while(<FILE>) {print $_,"<br>";}