I usually do something like:

    print "Bla, bla, bla ";  # Well, this is what I tend to leave off.
    chomp (my $answer = <>);
    $answer = $default_value unless $answer =~ /\S/;
[download]

Abigail