#!/usr/bin/perl -w

use strict;

print "Letter? ";
my $letter = <STDIN>;   
chomp $letter;
open (DATA, "books.txt") or die "error opening file $!";
my $line;
foreach $line(<DATA>) {
  if ($line =~ /^$letter/i) {
    print $line;
  }
}  
close DATA;