#!/usr/bin/perl

sub y_or_n {
    local($prompt) = @_;
    print STDOUT $prompt;
    local($answer) = scalar(<STDIN>);
    $answer =~ /^y/i;
}

&walk if &y_or_n("I'd walk a camel for a mile.  Would you? ");
