#!/usr/bin/perl

my %questions = (
    'Path for package: ' => <<EOH,

So we are poing to install The Best All-Purpose Compiler ever.
It groks perl, java, c#, haskell, forth and lisp and many more
all at the same time. Big deal.

EOH
    'do you want Visual Basic support? ' => <<EOH,

The next abomination is optional. PLEASE think again if you are
inclined to install support for that cruft.

EOH
    'What is your nick? ' => <<EOH,

We want some sensitive information from you to harrass you on
every IRC channel in which you talk bad of our product. Yes,
we monitor them all.

EOH
);

for (keys %questions) {
    print $questions{$_};
    sleep 1;
    print;
    chop ($foo = <STDIN>);
    sleep 1;
    print "you said: '$foo', good. We'll come back to that.\n";
}
print "Thank you for using The Great Foo.\n";