#! /usr/bin/perl


###############################################################################
#
# If something serious happened, then wait for CR to be pressed.
#
$waitcr     = 1;							# provided by 'init'

if ($waitcr) {
	print "Press <return> to continue: ";
	$garbage = <STDIN>;
}
