open(DATA, "books.txt" or die "Could not open file: $!\n";
print "Letter: " and chomp (my $letter=<STDIN>);
while(<DATA>) { print if /^$letter/io; }