$i=0;
do {
        print "Not an option!\n" if $i>0;
        print "Are you to proceed? (y/n): ";
        chomp($make_account = <STDIN>);
        ++$i;
        die "\nCiao!\n" if (($make_account eq 'n') || ($make_account eq 'N'));
} while ( ($make_account ne 'y') || ($make_account ne 'Y') );