#!/usr/local/bin/perl -w
###########################################
# Test Menu with scrolling
# Mike Schilli, 2013 (m@perlmeister.com)
###########################################
use strict;
use Term::Menus;

my @files = sort glob "~/*";
my $banner="  Please pick an file:";
my $selection = pick( \@files, $banner);
print "You chose '$selection'\n";