Help for this page

Select Code to Download

Select or download this

use IO::Prompt::Hooked;

...
);

print "\n*** You chose '$file'. ***\n";