Select Code to Download

#!/usr/bin/perl
use strict; 
use warnings;
...
    print "Please enter only a letter between a and d.\n";
    chomp($reply = <STDIN>);
}