#!/usr/bin/perl 

use strict;
use warnings;
use IO::Prompt;

my $example = "Example";

( prompt "Enter your choice [y/n] : ", -yes_no )
?
print uc($example), "\n"
:
print lc($example), "\n";