my $get_a_line = -t STDIN
                 ? sub { readline( $_[0] ) }
                 : sub { scalar <STDIN> };
## . . .
my $input  $get_a_line->( $prompt );