/usr/share/doc/libio-prompt-perl/examples/menu.pl is in libio-prompt-perl 0.997001-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | use IO::Prompt;
my $answer = prompt 'Please select the most correct answer...', -1,
-menu => [
'Perl is an interpreted language',
'Perl is the Swiss Army Chainsaw',
'Perl rocks, dude!',
'All of the above',
];
print "You chose: [$answer]\n\n";
$answer = prompt 'Please select the most correct answer...', -1,
-menu => {
interpreted => 'Perl is an interpreted language',
Swiss => 'Perl is the Swiss Army Chainsaw',
Rocks => 'Perl rocks, dude!',
all => 'All of the above',
};
print "You chose: [$answer]\n\n";
|