open (DATAFILE, $filename);
@lines = <DATAFILE>;
close(DATAFILE);

print $lines[14];