#!/usr/bin/perl
###########################################
# input -- Test ask() and pick()
# Mike Schilli, 2004 (m@perlmeister.com)
###########################################
use warnings;
use strict;

use Sysadm::Install qw(:all);

my $name = ask "Name", "No-Name-Entered";
print "  Name: $name\n";

my $salary = pick "Salary", 
   ["0-100K", "100K-200K", "300K-"], 1;
print "  Salary: $salary\n";