#!perl/bin/perl

use strict;

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

/\byes\b/i ?
   eval {
      print "Press any key to exit...";
      <STDIN>;
      exit;
   }
:
   eval {
      print "Thanks, you stayed... But then, goodbye.\n";
      print "Press any key to proceed...\n";
      <STDIN>;
   };

print "GOOD DAY";