#!perl/bin/perl

use strict;

print "Are you sure you want to quit ('yes' or any key for 'no'): ";
chomp($_ = <STDIN>);

print /\byes\b/i ? <<LEAVE : <<STAY;

Press any key to exit...
LEAVE
Thanks, you stayed... But then, goodbye.
Press any key to proceed...
STAY
<STDIN>;
print "GOOD DAY\n";

##</code><code>##

$foo = 1; $foo ? \& { print "foo"} : \& { print "bar"};