in reply to PROMPT wih default

Can you show us what you have tried so far?

In Section Seekers of Perl Wisdom