In addition to fishmonger's advice above, you should consider adding:

use Cwd;
[download]

so that you can include the process's current working directory in the error message:

open( GRADES, '<', $grades ) 
   or die sprintf("error opening %s: %s (%d) cwd=%s\n", $grades, $!, $
+!+0, getcwd );
[download]