#---------#---------#---------#---------#---------#---------#---------#---------
#
# title
#   generate errors using diagnostics
# author
#   idc@planetlarg.net 13 march 01
# description
#   see Programming Perl, p.396
# modifications
#
#---------#---------#---------#---------#---------#---------#---------#---------
#
use diagnostics;
print NOWHERE "nothing\n";
print STDERR "\n\tThis message should be unadorned.\n";
warn "\tThis is a user warning.";
print "\nDIAGNOSTIC TESTER: please enter a <CR> here: ";
my $a, $b   = scalar <STDIN>;
print "\n";
print $x/$y;