#!/usr/local/bin/perl -w ########################################### # getopt-complete - Test Getopt::Complete # Mike Schilli, 2010 (m@perlmeister.com) ########################################### use strict; use Getopt::Complete( 'bgcolor' => ['red', 'blue', 'green'], );