if ($course eq "ERROR") { 
  print "Fatal Error - see errorLog.txt for details \n" ;    
  print "Hit 'ENTER' to quit\n" ; 
  my $temp = <> ;
  warn "\n**$temp**\n";#show what was read from STDIN
  sleep 5;#give yourself time to see it
}