#/usr/bin/perl -w
use strict;
print "Letter: ";
chomp(my $letter = <STDIN>);
open(DATA, "books.txt") or die "error opening file $!";
while(<DATA>) {
        if (/^$letter/i) {
                print;
        }
}