#!/usr/bin/env perl

use strict;
use warnings;

$| = 1;

my ($input);

print <<_END_;
Lorem ipsum dolor sit amet, consectetur adipiscing elit. Curabitur aliquam condimentum nisi sit amet porttitor. Ut eleifend turpis in est viverra dictum. Mauris bibendum, augue eget bibendum blandit, risus metus eleifend nisl, non malesuada massa sapien et orci. Curabitur ut leo quam, a tempor eros. Fusce et porttitor quam. Donec accumsan lorem id turpis commodo eget dignissim urna pretium. Nunc mattis consectetur ligula nec tincidunt. Nunc facilisis iaculis justo non consectetur. Nulla eget laoreet massa.

_END_
print "Ready? ";

$input = <STDIN>;
chomp $input;
die unless $input eq 1;

print <<_END_;
Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas.

_END_
print "Ready? ";

$input = <STDIN>;
chomp $input;
die unless $input eq 2;

die "*** Nulla eget laoreet massa. ***\n";