#!/afs/athena/contrib/perl/p

sub create_profile {
    open(QS, "/afs/athena/user/g/s/gsstark/dormnet/questions");
    $cqnu = 0;
    while(<QS>)
    {
        ($question, @options) = split(/:/);
        &ask_q();
        &get_input();
        $choices[$cqnum]=$input;
        $cqnum++;
    }
}
sub ask_q
{
    $n = $cqnum +1;
    print("$n)   $question\n");
    $oplet = 'a';
    foreach $i (0..$#options)
    {
        print("\t$oplet)  $options[$i]\n");
        $oplet++;
    }
}
sub get_input {
    print("dormnet> ");
    $input = (<STDIN>);
    chop($input);
}