my $animal = prompt -guarantee=>['cat','dog','cow'];

##</code><code>##

my $file = prompt "Select file: ",
	-must => {'File must exist' => sub { -e } },
    -complete => 'filenames';