#!/usr/bin/env perl

use strict;
use warnings;
use feature qw(say);
use sigtrap qw(die INT);
use subs qw(wait);

sub wait { say qq(Nothing to be done.) while <> }

wait();

END { say qq(To every man his little cross. Till he dies. And is forgotten.) }