#!/usr/local/bin/perl
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;