#!/usr/bin/perl -w

use strict;

print "Letter? ";
chomp(my $letter = <STDIN>);
open DATA, "books.txt" 
	or die "open(books.txt) returned: $!\n";
print grep {/^$letter/io} <DATA>;